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

test for #94 (using Thread.yield to trigger segfault)

Browse source
This commit is contained in:
Simon Cruanes 2017-01-26 23:40:36 +01:00
parent 5e7cfed9b8
commit 126bb2f3f2
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/threads/CCSemaphore.ml
View file

@ -69,9 +69,9 @@ let with_acquire ~n t ~f =
Thread.create (fun _ ->
for _i = 1 to 100 do
with_acquire ~n:(1 + (i mod 5)) s
~f:(fun () -> CCLock.incr n)
done
) ())
~f:(fun () -> Thread.yield(); CCLock.incr n)
done)
())
in
Array.iter Thread.join a;
assert_equal ~printer:CCInt.to_string 5 (get s);