From 91c0c3f6c14f05d040fcacb14f6425c10751449d Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 25 Oct 2023 01:01:51 -0400
Subject: [PATCH] fix props

---
 test/t_props.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/t_props.ml b/test/t_props.ml
index 01e3c174..403f2534 100644
--- a/test/t_props.ml
+++ b/test/t_props.ml
@@ -12,10 +12,10 @@ let with_pool ~kind () f =
 
 let () =
   add_test @@ fun ~kind ->
-  let@ pool = with_pool ~kind () in
   Q.Test.make ~name:"map then join_list"
     Q.(small_list small_int)
     (fun l ->
+      let@ pool = with_pool ~kind () in
       let l' = List.map (fun x -> Fut.spawn ~on:pool (fun () -> x + 1)) l in
       let l' = Fut.join_list l' |> Fut.wait_block_exn in
       if l' <> List.map succ l then Q.Test.fail_reportf "bad list";
@@ -23,10 +23,10 @@ let () =
 
 let () =
   add_test @@ fun ~kind ->
-  let@ pool = with_pool ~kind () in
   Q.Test.make ~name:"map bind"
     Q.(small_list small_int)
     (fun l ->
+      let@ pool = with_pool ~kind () in
       let open Fut.Infix_local in
       let l' =
         l