sig
  val syscall : (unit -> 'a) -> ('a, exn) Core.Std.Result.t
  val ounit_tests : unit -> OUnit.test
end