Fix test for cesu-8

tcltk · Oct 19, 2024 · 770e4ad · 770e4ad
1 parent 395b4ee
commit 770e4ad
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/tests/utfext.test b/tests/utfext.test
@@ -227,10 +227,11 @@ namespace eval utftest {
     proc testspacelimit {direction enc comment hexin hexout} {
 	set id $comment-[join $hexin ""]-spacelimit
 
-        # Double the input to avoid pathological single char
-        # whereby nothing is written to output
-        set hexin $hexin$hexin
-        set hexout $hexout$hexout
+        # Triple the input to avoid pathological short input case where
+        # whereby nothing is written to output. The test below
+        # requires $nchars > 0
+        set hexin $hexin$hexin$hexin
+        set hexout $hexout$hexout$hexout
 
 	set flags [list start end]
 	set constraints [list testencoding]