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