regression test for #487

This commit is contained in:
Simon Cruanes 2026-03-02 17:34:56 -05:00
parent bc9f361e56
commit 08e8fd3d54

View file

@ -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")