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