From ea5d9bbdf45ec9ecb72aab8fc3352be640ff3105 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sat, 14 Feb 2026 20:37:24 -0500
Subject: [PATCH] test pvec: avoid size explosion

---
 tests/pvec/t_pvec.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tests/pvec/t_pvec.ml b/tests/pvec/t_pvec.ml
index 2dee7e09..8078577d 100644
--- a/tests/pvec/t_pvec.ml
+++ b/tests/pvec/t_pvec.ml
@@ -265,10 +265,14 @@ module Op = struct
                    ( 1,
                      list_small gen_x >|= fun l ->
                      Append l, size + List.length l );
+                 ];
+                 (if size < 10_000 then [
+                   (* flat map can explode, only do it if list isn't too big *)
                    ( 1,
                      list_size (0 -- 5) gen_x >|= fun l ->
                      Flat_map l, size * (1 + List.length l) );
-                 ];
+                 ] else [])
+                 ;
                ]
         in