sig val start : ?callback:(elapsed:Core.Std.Time.Span.t -> unit) -> unit -> unit val ounit_tests : unit -> OUnit.test end