mirror of
https://github.com/c-cube/moonpool.git
synced 2025-12-06 03:05:30 -05:00
test: add regression test for bug in join_array
This commit is contained in:
parent
fc3d2d2645
commit
c8235f463d
1 changed files with 4 additions and 0 deletions
|
|
@ -119,3 +119,7 @@ let () =
|
|||
with Fut.Not_ready -> true);
|
||||
ignore (Fut.wait_block f1);
|
||||
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 |])
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue