module Ofday_unit_tests_v1: sig .. end
sig
end
val unit_tests : create:(hr:int -> min:int -> sec:int -> ms:int -> us:int -> 'a) -> ('a * string * string) list
create:(hr:int -> min:int -> sec:int -> ms:int -> us:int -> 'a) -> ('a * string * string) list