1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(** Http helpers used for tests *)
module Server : sig
(* Dummy http server that requires manual accepting of clients *)
type t
type session
val close_session : session -> unit
val make : Unix.sockaddr -> t
val accept : t -> f:(session -> unit) -> unit
val accept_request : session -> unit
val stop : t -> unit
val port : t -> int
val start : t -> unit
val respond : session -> status:[ `Ok | `Not_found ] -> content:string -> unit
(** Send the content of the file at path [file]. Works for both text
and binary files. Raises an exception if the [file] doesn't refer to a file. *)
val respond_file : session -> file:string -> unit
end
|
