From 8e240357b5d72b10e062ced3b853af6fd868eb2a Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 1 Apr 2024 15:48:20 -0400
Subject: [PATCH] update test outputs

---
 test/fiber/t_fib1.expected | 22 ++++++++++++----------
 test/fiber/t_fib1.ml       |  4 ++--
 2 files changed, 14 insertions(+), 12 deletions(-)

diff --git a/test/fiber/t_fib1.expected b/test/fiber/t_fib1.expected
index 4afd3894..ca4a1023 100644
--- a/test/fiber/t_fib1.expected
+++ b/test/fiber/t_fib1.expected
@@ -27,7 +27,8 @@ start
 ============
 start
 1: start fibers
-1.7.1: I'm fiber 7 and I'm about to…
+1.7.1: I'm fiber 7 and I'm about to fail…
+1.8.1: sub-fiber 8 was cancelled
 1.9.1: sub-fiber 9 was cancelled
 2.0: fiber 0 resolved as ok
 2.1: fiber 1 resolved as ok
@@ -37,7 +38,7 @@ start
 2.5: fiber 5 resolved as ok
 2.6: fiber 6 resolved as ok
 2.7: fiber 7 resolved as error
-2.8: fiber 8 resolved as ok
+2.8: fiber 8 resolved as error
 2.9: fiber 9 resolved as error
 3: wait for subs
 4: await fiber 0
@@ -51,11 +52,12 @@ start
 12: await fiber 4
 13: res 4 = 4
 14: await fiber 5
-15: res 5 = 5
-16: await fiber 6
-17: res 6 = 6
-18: await fiber 7
-19: main fiber cancelled with Failure("oh no!")
-20: main fiber result: error Failure("oh no!")
-21: main fib failed with "oh no!"
-22: main fiber exited
+15: other fib done
+16: res 5 = 5
+17: await fiber 6
+18: res 6 = 6
+19: await fiber 7
+20: main fiber cancelled with Failure("oh no!")
+21: main fiber result: error Failure("oh no!")
+22: main fib failed with "oh no!"
+23: main fiber exited
diff --git a/test/fiber/t_fib1.ml b/test/fiber/t_fib1.ml
index 0a1ece6a..7c4c5651 100644
--- a/test/fiber/t_fib1.ml
+++ b/test/fiber/t_fib1.ml
@@ -107,10 +107,10 @@ let () =
             F.with_on_self_cancel (fun _ ->
                 logf (TS.tick_get clock) "sub-fiber %d was cancelled" i)
           in
-          Thread.delay (float i *. 0.001);
+          Thread.delay (float i *. 0.05);
           F.yield ();
           if i = 7 then (
-            logf (TS.tick_get clock) "I'm fiber %d and I'm about to…" i;
+            logf (TS.tick_get clock) "I'm fiber %d and I'm about to fail…" i;
             failwith "oh no!"
           );
           i)