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 l1, l2 =
let@ pool = Ws_pool.with_ ~num_threads:min () in 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 = let l1, l2 =
FJ.both FJ.both

10
test/fiber/t_fib1.expected
View file

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

12
test/fiber/t_fib1.ml
View file

@ -8,8 +8,10 @@ let lock = Lock.create ()
let logf fmt = let logf fmt =
Printf.ksprintf Printf.ksprintf
(fun s -> (fun s ->
let@ () = Lock.with_ lock in let out = stdout in
print_string s) (let@ () = Lock.with_ lock in
output_string out s);
flush out)
fmt fmt
let () = let () =
@ -32,7 +34,13 @@ let () =
List.iteri List.iteri
(fun i f -> (fun i f ->
logf "await fiber %d\n%!" i; 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 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) logf "res %d = %d\n%!" i res)
subs; subs;
logf "main fiber done\n%!" logf "main fiber done\n%!"