sig
val
safe_create : (unit
->
unit)
->
Core
.
Std
.
Thread
.t
val
ounit_tests : unit
->
OUnit
.test
end