From c8235f463d3583e11d50861a206f0b9aff1cbfb2 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 15 Jun 2023 11:42:03 -0400
Subject: [PATCH] test: add regression test for bug in join_array

---
 test/t_futs1.ml | 4 ++++
 1 file changed, 4 insertions(+)

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