From 6c0063f9acb5f8b6d7f1cf7cfa30abc8b6d2a055 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 13 Jul 2023 12:23:52 -0400
Subject: [PATCH] more tests

---
 test/effect-based/t_fork_join.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/effect-based/t_fork_join.ml b/test/effect-based/t_fork_join.ml
index 007baa55..a187e8cd 100644
--- a/test/effect-based/t_fork_join.ml
+++ b/test/effect-based/t_fork_join.ml
@@ -209,7 +209,7 @@ module Evaluator = struct
         ( clamp_if_base 3,
           let+ f = gen_fun
           and+ csize = 1 -- 16
-          and+ l = list_size (1 -- 290) (gen 1)
+          and+ l = list_size (0 -- 290) (gen 1)
           and+ r = oneofl [ R_add; R_max; R_add_shift ] in
           Map_arr (csize, f, l, r) );
         ( clamp_if_base 2,