blob: 3a42308f72012f874f269956a4b09bb13d99a955 (
plain)
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
|
(* TEST
flags += " -w a ";
modules = "globrootsprim.c globroots.ml";
*)
open Globroots
let test_size =
try int_of_string (Sys.getenv "OCAML_TEST_SIZE")
with Not_found | Failure _ -> 0
let num_domains =
match test_size with
| 3 -> 8
| 2 -> 4
| _ -> print_string "ok\n"; exit 0
let n = 125
let _ =
let domains = Array.init (num_domains - 1) (fun _ ->
Domain.spawn(fun () ->
let module TestClassic = Test(Classic) () in
let module TestGenerational = Test(Generational) () in
TestClassic.test n;
TestGenerational.test n)) in
young2old (); Gc.full_major ();
assert (static2young (1, 1) Gc.full_major == 0x42);
TestClassic.test n;
TestGenerational.test n;
Array.iter Domain.join domains;
print_string "ok\n"
|