From b9bbcf82f7c3293089654ae4e079608a2e0c052e Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 9 Jul 2025 16:43:51 -0400
Subject: [PATCH] test do not need preprocessor anymore

---
 test/effect-based/dune                   | 3 ---
 test/effect-based/t_fib1.ml              | 4 ----
 test/effect-based/t_fib_fork_join.ml     | 4 ----
 test/effect-based/t_fib_fork_join_all.ml | 4 ----
 test/effect-based/t_fork_join.ml         | 4 ----
 test/effect-based/t_fork_join_heavy.ml   | 4 ----
 test/effect-based/t_futs1.ml             | 4 ----
 test/effect-based/t_many.ml              | 4 ----
 test/effect-based/t_sort.ml              | 4 ----
 9 files changed, 35 deletions(-)

diff --git a/test/effect-based/dune b/test/effect-based/dune
index faa9254d..393ca576 100644
--- a/test/effect-based/dune
+++ b/test/effect-based/dune
@@ -9,9 +9,6 @@
   t_sort
   t_fork_join
   t_fork_join_heavy)
- (preprocess
-  (action
-   (run %{project_root}/src/cpp/cpp.exe %{input-file})))
  (enabled_if
   (and
    (= %{system} "linux")
diff --git a/test/effect-based/t_fib1.ml b/test/effect-based/t_fib1.ml
index a2f62e82..e856a08a 100644
--- a/test/effect-based/t_fib1.ml
+++ b/test/effect-based/t_fib1.ml
@@ -1,5 +1,3 @@
-[@@@ifge 5.0]
-
 open Moonpool
 
 let ( let@ ) = ( @@ )
@@ -56,5 +54,3 @@ let main () =
 let () =
   let@ () = Trace_tef.with_setup () in
   main ()
-
-[@@@endif]
diff --git a/test/effect-based/t_fib_fork_join.ml b/test/effect-based/t_fib_fork_join.ml
index 25e7d49d..b514e91e 100644
--- a/test/effect-based/t_fib_fork_join.ml
+++ b/test/effect-based/t_fib_fork_join.ml
@@ -1,5 +1,3 @@
-[@@@ifge 5.0]
-
 open Moonpool
 module FJ = Moonpool_forkjoin
 
@@ -52,5 +50,3 @@ let () =
   (* now make sure we can do this with multiple pools in parallel *)
   let jobs = Array.init 2 (fun _ -> Thread.create run_test ()) in
   Array.iter Thread.join jobs
-
-[@@@endif]
diff --git a/test/effect-based/t_fib_fork_join_all.ml b/test/effect-based/t_fib_fork_join_all.ml
index f80670ca..ac58d32e 100644
--- a/test/effect-based/t_fib_fork_join_all.ml
+++ b/test/effect-based/t_fib_fork_join_all.ml
@@ -1,5 +1,3 @@
-[@@@ifge 5.0]
-
 let ( let@ ) = ( @@ )
 
 open Moonpool
@@ -44,5 +42,3 @@ let () =
   (* now make sure we can do this with multiple pools in parallel *)
   let jobs = Array.init 2 (fun _ -> Thread.create run_test ()) in
   Array.iter Thread.join jobs
-
-[@@@endif]
diff --git a/test/effect-based/t_fork_join.ml b/test/effect-based/t_fork_join.ml
index 83c291ab..5000c23c 100644
--- a/test/effect-based/t_fork_join.ml
+++ b/test/effect-based/t_fork_join.ml
@@ -1,5 +1,3 @@
-[@@@ifge 5.0]
-
 let spf = Printf.sprintf
 let ( let@ ) = ( @@ )
 
@@ -328,5 +326,3 @@ let () =
       t_for_nested ~min:1 ~chunk_size:100 ();
       t_for_nested ~min:4 ~chunk_size:100 ();
     ]
-
-[@@@endif]
diff --git a/test/effect-based/t_fork_join_heavy.ml b/test/effect-based/t_fork_join_heavy.ml
index 0b35db1f..69228f5f 100644
--- a/test/effect-based/t_fork_join_heavy.ml
+++ b/test/effect-based/t_fork_join_heavy.ml
@@ -1,5 +1,3 @@
-[@@@ifge 5.0]
-
 module Q = QCheck
 
 let spf = Printf.sprintf
@@ -52,5 +50,3 @@ let () =
   run ~min:4 ();
   run ~min:1 ();
   Printf.printf "done\n%!"
-
-[@@@endif]
diff --git a/test/effect-based/t_futs1.ml b/test/effect-based/t_futs1.ml
index 4df18226..ef5cba54 100644
--- a/test/effect-based/t_futs1.ml
+++ b/test/effect-based/t_futs1.ml
@@ -1,5 +1,3 @@
-[@@@ifge 5.0]
-
 open! Moonpool
 
 let pool = Ws_pool.create ~num_threads:4 ()
@@ -53,5 +51,3 @@ let () =
   in
   let fut = Fut.both f1 f2 in
   assert (Fut.wait_block fut = Ok (2, 20))
-
-[@@@endif]
diff --git a/test/effect-based/t_many.ml b/test/effect-based/t_many.ml
index b4a2c8da..fc808c5a 100644
--- a/test/effect-based/t_many.ml
+++ b/test/effect-based/t_many.ml
@@ -1,5 +1,3 @@
-[@@@ifge 5.0]
-
 open Moonpool
 
 let ( let@ ) = ( @@ )
@@ -44,5 +42,3 @@ let () =
    run ~pool ());
 
   ()
-
-[@@@endif]
diff --git a/test/effect-based/t_sort.ml b/test/effect-based/t_sort.ml
index f0da71b8..cc152a00 100644
--- a/test/effect-based/t_sort.ml
+++ b/test/effect-based/t_sort.ml
@@ -1,5 +1,3 @@
-[@@@ifge 5.0]
-
 open Moonpool
 module FJ = Moonpool_forkjoin
 
@@ -69,5 +67,3 @@ let () =
   (* Printf.printf "arr: [%s]\n%!" *)
   (*   (String.concat ", " @@ List.map string_of_int @@ Array.to_list arr); *)
   assert (sorted arr)
-
-[@@@endif]