anil.recoil.org / ocaml-yamlrw
Pure OCaml Yaml 1.2 reader and writer using Bytesrw
fork atom

concurrency in test suite

anil.recoil.org 36544855 d8a8639d

1/1
build.yml
options
unified split
Changed files
+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