diff --git a/test/t_resource.ml b/test/t_resource.ml
index 2cdd7728..5845c520 100644
--- a/test/t_resource.ml
+++ b/test/t_resource.ml
@@ -6,6 +6,9 @@ let ( let@ ) = ( @@ )
 let () =
   let a = Atomic.make 0 in
   for _i = 1 to 1_000 do
+    (* give a chance to domains to die *)
+    if _i mod 100 = 0 then Thread.delay 0.8;
+
     (* allocate a new pool at each iteration *)
     let@ p = Pool.with_ ~min:4 () in
     Pool.run_wait_block p (fun () -> Atomic.incr a)