unikernel/duniverse/dune_/test/http/http.mli

@@ -0,0 +1,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