From e1219ade54dbc3a1a90606cf1fd200689f9e13af Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Fri, 2 Feb 2024 23:29:17 -0500
Subject: [PATCH] details in test

---
 test/effect-based/t_fib1.ml | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/test/effect-based/t_fib1.ml b/test/effect-based/t_fib1.ml
index a7c8ebee..5a9d66e6 100644
--- a/test/effect-based/t_fib1.ml
+++ b/test/effect-based/t_fib1.ml
@@ -2,6 +2,8 @@
 
 open Moonpool
 
+let ( let@ ) = ( @@ )
+
 let rec fib_direct x =
   if x <= 1 then
     1
@@ -18,7 +20,7 @@ let fib ~on x : int Fut.t =
       Fut.await t1 + Fut.await t2
     )
   in
-  Fut.spawn ~on (fun () -> fib_rec x)
+  Fut.spawn ~name:"fib" ~on (fun () -> fib_rec x)
 
 (* NOTE: for tracy support
    let () = Tracy_client_trace.setup ()
@@ -46,9 +48,13 @@ let run_test () =
 
   assert (res = Ok (Array.make 3 fib_40))
 
-let () =
+let main () =
   (* 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
 
+let () =
+  let@ () = Trace_tef.with_setup () in
+  main ()
+
 [@@@endif]