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