22 lines
671 B
OCaml
22 lines
671 B
OCaml
|
(** 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
|