1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
(* TEST
{
include systhreads;
hassysthreads;
}{
reason = "off-by-one error on MacOS+Clang (https://github.com/ocaml-multicore/ocaml-multicore/issues/408)";
skip;
{
bytecode;
}{
native;
}
}
*)
(* Test Thread.delay and its scheduling *)
open Printf
let tick (delay, count) =
while true do
Thread.delay delay;
incr count
done
let _ =
let c1 = ref 0 and c2 = ref 0 in
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"
else printf "FAILED (n1 = %d, n2 = %d)\n" n1 n2
|
