From 08e8fd3d5415bbba291163dcfd0c3be950bc750e Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 2 Mar 2026 17:34:56 -0500
Subject: [PATCH] regression test for #487

---
 tests/core/t_string.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/core/t_string.ml b/tests/core/t_string.ml
index dfd30970..9cf08e27 100644
--- a/tests/core/t_string.ml
+++ b/tests/core/t_string.ml
@@ -410,4 +410,7 @@ q
 ;;
 
 t @@ fun () -> "ab" < "abc";;
-t @@ fun () -> "123" < "14"
+t @@ fun () -> "123" < "14";;
+
+eq ~printer:Fun.id "a,b,c,d,e,f,g,"
+  (flat_map (CCFormat.sprintf "%c,") "abcdefg")