sig val register : ?get_location:(unit -> unit) -> unit Utest.Only_in_test.t -> unit val register_thunk : ?get_location:(unit -> unit) -> (unit -> unit) -> unit val run_tests_and_exit : unit -> unit val run_tests : unit -> bool end