test: add regression test for bug in join_array

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

View file

@ -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 |])