anil.recoil.org
Pure OCaml Yaml 1.2 reader and writer using Bytesrw
concurrency in test suite
+2
-2
+2
-2
tests/test_suite_lib/test_suite_loader_eio.ml
+2
-2
tests/test_suite_lib/test_suite_loader_eio.ml
···
60
60
&& e.[0] <= 'Z')
61
61
|> List.sort String.compare
62
62
in
63
-
(* Load each test ID in parallel using fibers *)
64
-
Eio.Fiber.List.map
63
+
(* Load each test ID in parallel using fibers with bounded concurrency *)
64
+
Eio.Fiber.List.map ~max_fibers:50
65
65
(fun test_id -> Loader.load_test_id fs test_suite_path test_id)
66
66
test_ids
67
67
|> List.concat