Increase delays in tests/lib-threads/beat.ml

gretay-js · gretay-js · commit b7de80594258 · 2022-08-25T10:30:36.000+01:00
The delay was reduced in PR#658 and the test sometimes fails with
closure. This commit reverts the effect of PR#658 on
tests/lib-threads/beat.ml
diff --git a/ocaml/testsuite/tests/lib-threads/beat.ml b/ocaml/testsuite/tests/lib-threads/beat.ml
@@ -19,9 +19,9 @@ let tick (delay, count) =
 
 let _ =
   let c1 = ref 0 and c2 = ref 0 in
-  ignore (Thread.create tick (0.0333333333, c1));
-  ignore (Thread.create tick (0.05, c2));
-  Thread.delay 0.3;
+  ignore (Thread.create tick (0.333333333, c1));
+  ignore (Thread.create tick (0.5, c2));
+  Thread.delay 3.0;
   let n1 = !c1 and n2 = !c2 in
   if n1 >= 8 && n1 <= 10 && n2 >= 5 && n2 <= 7
   then printf "passed\n"
