simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-06 03:05:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

update tests

Browse source
This commit is contained in:
Simon Cruanes 2024-02-27 21:25:07 -05:00
parent 856dc85d41
commit dac1450d54
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
3 changed files with 21 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/effect-based/t_fork_join_heavy.ml
View file

@ -29,7 +29,7 @@ let run ~min () =
let l1, l2 =
let@ pool = Ws_pool.with_ ~num_threads:min () in
let@ () = Ws_pool.run_wait_block pool in
let@ () = Runner.run_wait_block pool in
let l1, l2 =
FJ.both

10
test/fiber/t_fib1.expected
View file

@ -2,14 +2,24 @@
start
wait for subs
await fiber 0
cur fiber is some: true
cur fiber is some: true
res 0 = 0
await fiber 1
cur fiber is some: true
cur fiber is some: true
res 1 = 1
await fiber 2
cur fiber is some: true
cur fiber is some: true
res 2 = 2
await fiber 3
cur fiber is some: true
cur fiber is some: true
res 3 = 3
await fiber 4
cur fiber is some: true
cur fiber is some: true
res 4 = 4
main fiber done
other fib done

12
test/fiber/t_fib1.ml
View file

@ -8,8 +8,10 @@ let lock = Lock.create ()
let logf fmt =
Printf.ksprintf
(fun s ->
let@ () = Lock.with_ lock in
print_string s)
let out = stdout in
(let@ () = Lock.with_ lock in
output_string out s);
flush out)
fmt
let () =
@ -32,7 +34,13 @@ let () =
List.iteri
(fun i f ->
logf "await fiber %d\n%!" i;
logf "cur fiber is some: %b\n%!"
(Option.is_some @@ F.Private_.get_cur ());
let res = F.await f in
logf "cur fiber is some: %b\n%!"
(Option.is_some @@ F.Private_.get_cur ());
Thread.delay 0.000_01;
F.yield ();
logf "res %d = %d\n%!" i res)
subs;
logf "main fiber done\n%!"