ligo/vendors/ocplib-resto/lib_resto-directory/test/services.ml

(**************************************************************************)
(*  ocplib-resto                                                          *)
(*  Copyright (C) 2016, OCamlPro.                                         *)
(*                                                                        *)
(*    All rights reserved.  This file is distributed under the terms      *)
(*    of the GNU Lesser General Public License version 2.1, with the      *)
(*    special exception on linking described in the file LICENSE.         *)
(*                                                                        *)
(**************************************************************************)

open Resto
module Service = MakeService(Resto_json.Encoding)
open Service

(** Shared part *)

let repeat_service =
  post_service
    ~query:Query.empty
    ~input:Json_encoding.any_ezjson_value
    ~output:Json_encoding.any_ezjson_value
    ~error:Json_encoding.empty
    Path.(root / "foo" /: Arg.int / "repeat")

let add_service =
  post_service
    ~query:Query.empty
    ~input:Json_encoding.int
    ~output:Json_encoding.int
    ~error:Json_encoding.empty
    Path.(root / "foo" /: Arg.int / "add")

let alternate_add_service =
  get_service
    ~query:Query.empty
    ~output:Json_encoding.float
    ~error:Json_encoding.empty
    Path.(root / "bar" /: Arg.int /: Arg.float / "add")

let alternate_add_service' =
  post_service
    ~query:Query.empty
    ~input:Json_encoding.null
    ~output:Json_encoding.int
    ~error:Json_encoding.empty
    Path.(root / "bar" /: Arg.int /: Arg.float / "add")

let minus_service =
  post_service
    ~query:Query.empty
    ~input:Json_encoding.null
    ~output:Json_encoding.float
    ~error:Json_encoding.empty
    Path.(open_root /: Arg.int / "minus")

let describe_service =
  description_service Json_encoding.empty Path.(root / "describe")

let dummy_service =
  post_service
    ~query:Query.empty
    ~input:Json_encoding.null
    ~output:Json_encoding.null
    ~error:Json_encoding.empty
    Path.(root / "a" / "path" / "long" / "enough" /
          "for" / "<hov>" / "to" / "trigger"
          /: Arg.float /: Arg.float /: Arg.float /: Arg.float
          /: Arg.float /: Arg.float /: Arg.float)

let prefix_dir1 = Path.(root / "tartine" /: Arg.float / "chaussure")


(** Client only *)

let real_minus_service1 = Service.prefix prefix_dir1 minus_service