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

test: add regression test for bug in join_array

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

4
test/t_futs1.ml
View file

@ -119,3 +119,7 @@ let () =
with Fut.Not_ready -> true); with Fut.Not_ready -> true);
ignore (Fut.wait_block f1); ignore (Fut.wait_block f1);
assert (Fut.get_or_fail f1 = Ok "foo") assert (Fut.get_or_fail f1 = Ok "foo")
let () =
let x = [| Fut.return 1 |] |> Fut.join_array |> Fut.wait_block_exn in
assert (x = [| 1 |])