simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-07 11:45:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

test t_tree_futs: env J to set size of pool

Browse source
This commit is contained in:
Simon Cruanes 2023-06-12 23:15:50 -04:00
parent 9a922088fd
commit a9a51b08c4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/t_tree_futs.ml
View file

@ -65,13 +65,15 @@ let () =
(*
Tracy_client_trace.setup ();
*)
let pool = Pool.create ~per_domain:1 ~min:2 () in
ignore (stat_thread () : Thread.t);
let start = Unix.gettimeofday () in
let n = try int_of_string (Sys.getenv "N") with _ -> default_n in
let j = try int_of_string (Sys.getenv "J") with _ -> 4 in
Printf.printf "n=%d\n%!" n;
let pool = Pool.create ~min:j () in
ignore (stat_thread () : Thread.t);
Printf.printf "n=%d, j=%d\n%!" n j;
let n1, n2 = run ~pool n |> Fut.wait_block_exn in
Printf.printf "n: %d, n': %d (in %.2fs)\n%!" n1 n2
(Unix.gettimeofday () -. start);