make test slightly less heavy

This commit is contained in:
Simon Cruanes 2024-02-27 21:30:37 -05:00
parent dac1450d54
commit bd7a48a4b4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -81,5 +81,5 @@ let () =
List.iter (fun size -> run_test_size ~size ()) [ 1; 2; 4; 8 ]; List.iter (fun size -> run_test_size ~size ()) [ 1; 2; 4; 8 ];
(* now make sure we can do this with multiple pools in parallel *) (* now make sure we can do this with multiple pools in parallel *)
let jobs = Array.init 4 (fun _ -> Thread.create (run_test_size ~size:4) ()) in let jobs = Array.init 3 (fun _ -> Thread.create (run_test_size ~size:4) ()) in
Array.iter Thread.join jobs Array.iter Thread.join jobs