blob: 05b06cc47caaacffff42bd111d32ce5a1d6eb2a5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(* TEST
* hasunix
include unix
** 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"
|
