sig
  type t
  val noop : Unregister.t
  val create : (unit -> unit) -> Unregister.t
  val unregister : Unregister.t -> unit
  val ounit_tests : unit -> OUnit.test
end