sig val unit_tests : create:(hr:int -> min:int -> sec:int -> ms:int -> us:int -> 'a) -> ('a * string * string) list val ounit_tests : unit -> OUnit.test end