let init () =
OUnitShared.mutex_create :=
(fun () ->
let mutex = Mutex.create () in
{
OUnitShared.
lock = (fun () -> Mutex.lock mutex);
try_lock = (fun () -> Mutex.try_lock mutex);
unlock = (fun () -> Mutex.unlock mutex);
});
OUnitRunnerThreads.init ()