blob: 9804c5b99ca06bfcba18e57b632146d899634062 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(* TEST
include unix;
hasunix;
{
bytecode;
}{
native;
}
*)
let _ =
(* start a dummy domain and shut it down to cause a domain reuse *)
let d = Domain.spawn (fun _ -> ()) in
Domain.join d;
let _d = Domain.spawn (fun _ ->
Unix.sleep 10;
print_endline "Should not reach here!") in
Gc.full_major ();
print_endline "OK"
|