diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-25 14:25:33 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-25 14:25:33 (GMT) |
commit | fe472174f89b1e1b88ffb459768387c693559ecf (patch) | |
tree | 6321964badec7e66e36cd01de96c22965534e40f /tests/util.test | |
parent | d550e5f966a4d8b906c6f83fe250a00dd912151e (diff) | |
parent | 9a01f0fa35b397ca135b063c7b4740e92d709532 (diff) | |
download | tcl-fe472174f89b1e1b88ffb459768387c693559ecf.zip tcl-fe472174f89b1e1b88ffb459768387c693559ecf.tar.gz tcl-fe472174f89b1e1b88ffb459768387c693559ecf.tar.bz2 |
Merge 8.7
Diffstat (limited to 'tests/util.test')
-rw-r--r-- | tests/util.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/util.test b/tests/util.test index a73f554..d303bb4 100644 --- a/tests/util.test +++ b/tests/util.test @@ -397,7 +397,7 @@ test util-6.6 {Tcl_PrintDouble - make sure there's a decimal point} { } {x3e+98} # This test always succeeded in the C locale anyway... -test util-8.1 {TclNeedSpace - correct UTF8 handling} { +test util-8.1 {TclNeedSpace - correct utf-8 handling} { # Bug 411825 # Note that this test relies on the fact that # [interp target] calls on Tcl_AppendElement() @@ -411,7 +411,7 @@ test util-8.1 {TclNeedSpace - correct UTF8 handling} { interp delete \u5420 set result } "\u5420 foo" -test util-8.2 {TclNeedSpace - correct UTF8 handling} testdstring { +test util-8.2 {TclNeedSpace - correct utf-8 handling} testdstring { # Bug 411825 # This tests the same bug as the previous test, but # should be more future-proof, as the DString @@ -421,14 +421,14 @@ test util-8.2 {TclNeedSpace - correct UTF8 handling} testdstring { testdstring element foo llength [testdstring get] } 2 -test util-8.3 {TclNeedSpace - correct UTF8 handling} testdstring { +test util-8.3 {TclNeedSpace - correct utf-8 handling} testdstring { # Bug 411825 - new variant reported by Dossy Shiobara testdstring free testdstring append \u00A0 -1 testdstring element foo llength [testdstring get] } 2 -test util-8.4 {TclNeedSpace - correct UTF8 handling} testdstring { +test util-8.4 {TclNeedSpace - correct utf-8 handling} testdstring { # Another bug uncovered while fixing 411825 testdstring free testdstring append {\ } -1 @@ -436,13 +436,13 @@ test util-8.4 {TclNeedSpace - correct UTF8 handling} testdstring { testdstring element foo llength [testdstring get] } 2 -test util-8.5 {TclNeedSpace - correct UTF8 handling} testdstring { +test util-8.5 {TclNeedSpace - correct utf-8 handling} testdstring { testdstring free testdstring append {\\ } -1 testdstring element foo list [llength [testdstring get]] [string length [testdstring get]] } {2 6} -test util-8.6 {TclNeedSpace - correct UTF8 handling} testdstring { +test util-8.6 {TclNeedSpace - correct utf-8 handling} testdstring { testdstring free testdstring append {\\ } -1 testdstring append \{ -1 |