testsuite/tests/lib-sync/trylock.ml


1
2
3
4
5
6
7
8
9
10
11
12
13

(* TEST
*)

(* Test Mutex.try_lock *)

let () =
  let m = Mutex.create () in
  Mutex.lock m;
  let res = Mutex.try_lock m in
  if res = false then
    print_endline "passed"
  else
    print_endline "FAILED (try_lock returned true)"