sig
  type t
  val invariant : Interruptor.t -> unit
  val create :
    create_fd:(Raw_fd.Kind.t ->
               Core.Std.Unix.File_descr.t -> Core.Std.Info.t -> Raw_fd.t) ->
    Interruptor.t
  val read_fd : Interruptor.t -> Raw_fd.t
  val thread_safe_interrupt : Interruptor.t -> unit
  val clear : Interruptor.t -> unit
  val sexp_of_t : Interruptor.t -> Sexplib.Sexp.t
  val ounit_tests : unit -> OUnit.test
end