From b53a067234d1d33dedebe65272600f2ba0228c6f Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 12 Nov 2025 00:24:48 -0500 Subject: [PATCH] fix test --- test/t_unfair.ml | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/test/t_unfair.ml b/test/t_unfair.ml index cee4373e..81d8dd1e 100644 --- a/test/t_unfair.ml +++ b/test/t_unfair.ml @@ -14,14 +14,11 @@ let run ~kind () = let pool = let on_init_thread ~dom_id:_ ~t_id () = Trace.set_thread_name (Printf.sprintf "pool worker %d" t_id) - and around_task = - ( (fun self -> Trace.counter_int "n_tasks" (Ws_pool.num_tasks self)), - fun self () -> Trace.counter_int "n_tasks" (Ws_pool.num_tasks self) ) in match kind with - | `Simple -> Fifo_pool.create ~num_threads:3 ~on_init_thread ~around_task () - | `Ws_pool -> Ws_pool.create ~num_threads:3 ~on_init_thread ~around_task () + | `Simple -> Fifo_pool.create ~num_threads:3 ~on_init_thread () + | `Ws_pool -> Ws_pool.create ~num_threads:3 ~on_init_thread () in (* make all threads busy *)