blob: 8aedeba202a4544dd391df29cb4eb29a694eea06 (
plain)
1
2
3
4
5
6
7
8
9
10
|
(* TEST
modules = "recommended_domain_count_cstubs.c"
*)
external get_max_domains : unit -> int = "caml_get_max_domains"
let _ =
assert (Domain.recommended_domain_count () > 0);
assert (Domain.recommended_domain_count () <= (get_max_domains ()));
print_string "passed\n"
|