sig
  val create : ?listen_port:int -> (string * exn) list -> unit
  val maybe_raise : string list -> unit
  val ounit_tests : unit -> OUnit.test
end