From 54099f10d55d769197e6e966e9cdec9d6a98fb49 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sat, 23 May 2020 17:44:32 -0400
Subject: [PATCH] test: regression test for stack overflow in CCpool

---
 src/threads/CCPool.ml | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/threads/CCPool.ml b/src/threads/CCPool.ml
index 0d85b349..2395d58e 100644
--- a/src/threads/CCPool.ml
+++ b/src/threads/CCPool.ml
@@ -546,6 +546,18 @@ module Make(P : PARAM) = struct
       OUnit.assert_equal expected (Fut.get l')
     *)
 
+    (*$R
+      let l = CCList.(1 -- 100_000) in
+      let l' = l
+        |> List.map
+          (fun x -> Fut.make (fun () -> 1))
+        |> Fut.sequence_l
+        |> Fut.map (List.fold_left (+) 0)
+      in
+      let expected = 100_000 in
+      OUnit.assert_equal expected (Fut.get l')
+    *)
+
     (*$R
       let l = CCList.(1 -- 50) in
       let l' = l