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

be nicer to mac OS' lazy scheduler in tests

Browse source
This commit is contained in:
Simon Cruanes 2020-12-21 17:17:47 -05:00
parent f2a472ab44
commit b18a71efd6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/threads/CCTimer.ml
View file

@ -198,8 +198,8 @@ let stop timer =
~f:(fun () -> CCLock.update n (fun x -> x+2)); ~f:(fun () -> CCLock.update n (fun x -> x+2));
ignore (Thread.create ignore (Thread.create
(fun _ -> Thread.delay 0.4; CCLock.set res (CCLock.get n)) ()); (fun _ -> Thread.delay 0.4; CCLock.set res (CCLock.get n)) ());
after timer 0.2 after timer 0.1
~f:(fun () -> CCLock.update n (fun x -> x * 4)); ~f:(fun () -> CCLock.update n (fun x -> x * 4));
Thread.delay 0.6 ; Thread.delay 0.6 ;
OUnit.assert_equal 6 (CCLock.get res); OUnit.assert_equal ~printer:Q.Print.int 6 (CCLock.get res);
*) *)