simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

update a test

Browse source
This commit is contained in:
Simon Cruanes 2017-01-26 14:20:24 +01:00
parent 9a46b4527c
commit 61f1ca3231
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/threads/CCSemaphore.ml
View file

@ -67,13 +67,15 @@ let with_acquire ~n t ~f =
let n = CCLock.create 0 in let n = CCLock.create 0 in
let a = Array.init 100 (fun i -> let a = Array.init 100 (fun i ->
Thread.create (fun _ -> Thread.create (fun _ ->
for _i = 1 to 100 do
with_acquire ~n:(1 + (i mod 5)) s with_acquire ~n:(1 + (i mod 5)) s
~f:(fun () -> CCLock.incr n) ~f:(fun () -> CCLock.incr n)
done
) ()) ) ())
in in
Array.iter Thread.join a; Array.iter Thread.join a;
assert_equal ~printer:CCInt.to_string 5 (get s); assert_equal ~printer:CCInt.to_string 5 (get s);
assert_equal ~printer:CCInt.to_string 100 (CCLock.get n) assert_equal ~printer:CCInt.to_string 10_000 (CCLock.get n)
*) *)
let wait_until_at_least ~n t ~f = let wait_until_at_least ~n t ~f =