From 61f1ca323101d37dc04a19fb9a5b7102f8cb56e7 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 26 Jan 2017 14:20:24 +0100 Subject: [PATCH] update a test --- src/threads/CCSemaphore.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/threads/CCSemaphore.ml b/src/threads/CCSemaphore.ml index b67408a0..caeade9c 100644 --- a/src/threads/CCSemaphore.ml +++ b/src/threads/CCSemaphore.ml @@ -67,13 +67,15 @@ let with_acquire ~n t ~f = let n = CCLock.create 0 in let a = Array.init 100 (fun i -> Thread.create (fun _ -> + for _i = 1 to 100 do with_acquire ~n:(1 + (i mod 5)) s ~f:(fun () -> CCLock.incr n) + done ) ()) in Array.iter Thread.join a; 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 =