update test outputs

This commit is contained in:
Simon Cruanes 2024-04-01 15:48:20 -04:00
parent 80e8f84703
commit 8e240357b5
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 14 additions and 12 deletions

View file

@ -27,7 +27,8 @@ start
============ ============
start start
1: start fibers 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 1.9.1: sub-fiber 9 was cancelled
2.0: fiber 0 resolved as ok 2.0: fiber 0 resolved as ok
2.1: fiber 1 resolved as ok 2.1: fiber 1 resolved as ok
@ -37,7 +38,7 @@ start
2.5: fiber 5 resolved as ok 2.5: fiber 5 resolved as ok
2.6: fiber 6 resolved as ok 2.6: fiber 6 resolved as ok
2.7: fiber 7 resolved as error 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 2.9: fiber 9 resolved as error
3: wait for subs 3: wait for subs
4: await fiber 0 4: await fiber 0
@ -51,11 +52,12 @@ start
12: await fiber 4 12: await fiber 4
13: res 4 = 4 13: res 4 = 4
14: await fiber 5 14: await fiber 5
15: res 5 = 5 15: other fib done
16: await fiber 6 16: res 5 = 5
17: res 6 = 6 17: await fiber 6
18: await fiber 7 18: res 6 = 6
19: main fiber cancelled with Failure("oh no!") 19: await fiber 7
20: main fiber result: error Failure("oh no!") 20: main fiber cancelled with Failure("oh no!")
21: main fib failed with "oh no!" 21: main fiber result: error Failure("oh no!")
22: main fiber exited 22: main fib failed with "oh no!"
23: main fiber exited

View file

@ -107,10 +107,10 @@ let () =
F.with_on_self_cancel (fun _ -> F.with_on_self_cancel (fun _ ->
logf (TS.tick_get clock) "sub-fiber %d was cancelled" i) logf (TS.tick_get clock) "sub-fiber %d was cancelled" i)
in in
Thread.delay (float i *. 0.001); Thread.delay (float i *. 0.05);
F.yield (); F.yield ();
if i = 7 then ( 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!" failwith "oh no!"
); );
i) i)