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

test: regression test for bug in wait_list on empty list

Browse source
This commit is contained in:
Simon Cruanes 2023-06-15 11:58:32 -04:00
parent d60bf3828b
commit 39712e7f54
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/t_futs1.ml
View file

@ -88,6 +88,15 @@ let () =
let fut = Fut.both f1 f2 in let fut = Fut.both f1 f2 in
assert (Fut.wait_block fut = Ok (2, 20)) assert (Fut.wait_block fut = Ok (2, 20))
let () =
let l = [] in
let l' = Fut.wait_block_exn (Fut.join_list l) in
assert (l' = [])
let () =
let l = [] in
Fut.wait_block_exn (Fut.wait_list l)
let () = let () =
let f1 = mk_ret_delay 0.01 true in let f1 = mk_ret_delay 0.01 true in
let f2 = mk_ret_delay 0.9 false in let f2 = mk_ret_delay 0.9 false in