We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent ccc356d commit e119669Copy full SHA for e119669
testsuite/tests/lib-threads/beat.ml
@@ -19,9 +19,9 @@ let tick (delay, count) =
19
20
let _ =
21
let c1 = ref 0 and c2 = ref 0 in
22
- ignore (Thread.create tick (0.0333333333, c1));
23
- ignore (Thread.create tick (0.05, c2));
24
- Thread.delay 0.3;
+ ignore (Thread.create tick (0.333333333, c1));
+ ignore (Thread.create tick (0.5, c2));
+ Thread.delay 3.0;
25
let n1 = !c1 and n2 = !c2 in
26
if n1 >= 8 && n1 <= 10 && n2 >= 5 && n2 <= 7
27
then printf "passed\n"
0 commit comments