From 5d4a29a056a5eca3708e356f12c6b669fa7ab0ca Mon Sep 17 00:00:00 2001 From: Simon Cruanes 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 7f782836..03e29694 100644 --- a/test/t_futs1.ml +++ b/test/t_futs1.ml @@ -109,3 +109,7 @@ let () = in ignore (Fut.wait_block_exn (Fut.join_list [ fut1; fut2 ]) : _ list); assert (Atomic.get n = 99 * 100) + +let () = + let x = [| Fut.return 1 |] |> Fut.join_array |> Fut.wait_block_exn in + assert (x = [| 1 |])