sig
  type 'execution_context t
  val create :
    'execution_context -> ('a -> unit) -> 'a -> 'execution_context Job.t
  val execution_context : 'execution_context Job.t -> 'execution_context
  val run : 'a Job.t -> unit
  val ounit_tests : unit -> OUnit.test
end