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

test do not need preprocessor anymore

Browse source
This commit is contained in:
Simon Cruanes 2025-07-09 16:43:51 -04:00
parent 0ab99517d5
commit b9bbcf82f7
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
9 changed files with 0 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
test/effect-based/dune
View file

@ -9,9 +9,6 @@
t_sort t_sort
t_fork_join t_fork_join
t_fork_join_heavy) t_fork_join_heavy)
(preprocess
(action
(run %{project_root}/src/cpp/cpp.exe %{input-file})))
(enabled_if (enabled_if
(and (and
(= %{system} "linux") (= %{system} "linux")

4
test/effect-based/t_fib1.ml
View file

@ -1,5 +1,3 @@
[@@@ifge 5.0]
open Moonpool open Moonpool
let ( let@ ) = ( @@ ) let ( let@ ) = ( @@ )
@ -56,5 +54,3 @@ let main () =
let () = let () =
let@ () = Trace_tef.with_setup () in let@ () = Trace_tef.with_setup () in
main () main ()
[@@@endif]

4
test/effect-based/t_fib_fork_join.ml
View file

@ -1,5 +1,3 @@
[@@@ifge 5.0]
open Moonpool open Moonpool
module FJ = Moonpool_forkjoin module FJ = Moonpool_forkjoin
@ -52,5 +50,3 @@ let () =
(* 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 2 (fun _ -> Thread.create run_test ()) in let jobs = Array.init 2 (fun _ -> Thread.create run_test ()) in
Array.iter Thread.join jobs Array.iter Thread.join jobs
[@@@endif]

4
test/effect-based/t_fib_fork_join_all.ml
View file

@ -1,5 +1,3 @@
[@@@ifge 5.0]
let ( let@ ) = ( @@ ) let ( let@ ) = ( @@ )
open Moonpool open Moonpool
@ -44,5 +42,3 @@ let () =
(* 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 2 (fun _ -> Thread.create run_test ()) in let jobs = Array.init 2 (fun _ -> Thread.create run_test ()) in
Array.iter Thread.join jobs Array.iter Thread.join jobs
[@@@endif]

4
test/effect-based/t_fork_join.ml
View file

@ -1,5 +1,3 @@
[@@@ifge 5.0]
let spf = Printf.sprintf let spf = Printf.sprintf
let ( let@ ) = ( @@ ) let ( let@ ) = ( @@ )
@ -328,5 +326,3 @@ let () =
t_for_nested ~min:1 ~chunk_size:100 (); t_for_nested ~min:1 ~chunk_size:100 ();
t_for_nested ~min:4 ~chunk_size:100 (); t_for_nested ~min:4 ~chunk_size:100 ();
] ]
[@@@endif]

4
test/effect-based/t_fork_join_heavy.ml
View file

@ -1,5 +1,3 @@
[@@@ifge 5.0]
module Q = QCheck module Q = QCheck
let spf = Printf.sprintf let spf = Printf.sprintf
@ -52,5 +50,3 @@ let () =
run ~min:4 (); run ~min:4 ();
run ~min:1 (); run ~min:1 ();
Printf.printf "done\n%!" Printf.printf "done\n%!"
[@@@endif]

4
test/effect-based/t_futs1.ml
View file

@ -1,5 +1,3 @@
[@@@ifge 5.0]
open! Moonpool open! Moonpool
let pool = Ws_pool.create ~num_threads:4 () let pool = Ws_pool.create ~num_threads:4 ()
@ -53,5 +51,3 @@ let () =
in in
let fut = Fut.both f1 f2 in let fut = Fut.both f1 f2 in
assert (Fut.wait_block fut = Ok (2, 20)) assert (Fut.wait_block fut = Ok (2, 20))
[@@@endif]

4
test/effect-based/t_many.ml
View file

@ -1,5 +1,3 @@
[@@@ifge 5.0]
open Moonpool open Moonpool
let ( let@ ) = ( @@ ) let ( let@ ) = ( @@ )
@ -44,5 +42,3 @@ let () =
run ~pool ()); run ~pool ());
() ()
[@@@endif]

4
test/effect-based/t_sort.ml
View file

@ -1,5 +1,3 @@
[@@@ifge 5.0]
open Moonpool open Moonpool
module FJ = Moonpool_forkjoin module FJ = Moonpool_forkjoin
@ -69,5 +67,3 @@ let () =
(* Printf.printf "arr: [%s]\n%!" *) (* Printf.printf "arr: [%s]\n%!" *)
(* (String.concat ", " @@ List.map string_of_int @@ Array.to_list arr); *) (* (String.concat ", " @@ List.map string_of_int @@ Array.to_list arr); *)
assert (sorted arr) assert (sorted arr)
[@@@endif]