unikernel/duniverse/ocaml-tls/eio/tests/mock_socket.mli

@@ -0,0 +1,13 @@
+open Eio.Std
+
+type transmit_amount = [
+  | `Bytes of int   (* Send the next n bytes of data *)
+  | `Drain          (* Transmit all data immediately from now on *)
+]
+
+type t = [`Mock_tls | Eio.Flow.two_way_ty | Eio.Resource.close_ty] r
+
+val create_pair : unit -> t * t
+(** Create a pair of sockets [client, server], such that writes to one can be read from the other. *)
+
+val transmit : t -> transmit_amount -> unit