blob: ae301bda3637c42c00af211ba26f9ff6d7f72870 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(* TEST
*)
let _ =
let key_array =
Array.init 128 (fun i -> Domain.DLS.new_key (fun _ -> i))
in
assert (Domain.DLS.get (key_array.(42)) = 42);
let d = Domain.spawn (fun _ ->
assert (Domain.DLS.get (key_array.(63)) = 63))
in
Domain.join d;
print_endline "OK"
|