sig
  val query :
    ?timeout:Core.Std.Time.Span.t ->
    ?port:int ->
    string ->
    [ `Error of Core.Std.Exn.t | `Offset of Core.Std.Time.Span.t | `Timeout ]
  val ounit_tests : unit -> OUnit.test
end