@@ -20,7 +20,7 @@ let scan_task num_doms array_size =
2020let count = 250
2121
2222let test_parallel_for =
23- Test. make ~name: " test Task.parallel_for" ~count
23+ Test. make ~name: " Domainslib. Task.parallel_for test " ~count
2424 (triple (int_bound 10 ) small_nat small_nat)
2525 (fun (num_domains ,array_size ,chunk_size ) ->
2626 (* Printf.printf "(%i,%i)\n%!" num_domains array_size;*)
@@ -33,7 +33,7 @@ let test_parallel_for =
3333 res = array_size)
3434
3535let test_parallel_for_reduce =
36- Test. make ~name: " test Task.parallel_for_reduce" ~count
36+ Test. make ~name: " Domainslib. Task.parallel_for_reduce test " ~count
3737 (triple (int_bound 10 ) small_nat small_nat)
3838 (fun (num_domains ,array_size ,chunk_size ) ->
3939 (* Printf.printf "(%i,%i,%i)\n%!" num_domains array_size chunk_size;*)
@@ -44,7 +44,7 @@ let test_parallel_for_reduce =
4444 res = array_size)
4545
4646let test_parallel_scan =
47- Test. make ~name: " test Task.parallel_scan" ~count
47+ Test. make ~name: " Domainslib. Task.parallel_scan test " ~count
4848 (pair (int_bound 10 ) small_nat)
4949 (fun (num_domains ,array_size ) ->
5050 (* Printf.printf "(%i,%i)\n%!" num_domains array_size;*)
0 commit comments