sig
  val shutdown : ?force:unit Import.Deferred.t -> int -> unit
  val shutting_down : unit -> [ `No | `Yes of int ]
  val shutdown_and_raise :
    ?force:unit Import.Deferred.t -> int -> Core.Std.never_returns
  val at_shutdown : (unit -> unit Import.Deferred.t) -> unit
  val ounit_tests : unit -> OUnit.test
end