diff --git a/test/t_futs1.ml b/test/t_futs1.ml index 185989e5..0d8ae669 100644 --- a/test/t_futs1.ml +++ b/test/t_futs1.ml @@ -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 |])