summaryrefslogtreecommitdiffstats
path: root/tests/util.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-25 14:25:33 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-25 14:25:33 (GMT)
commitfe472174f89b1e1b88ffb459768387c693559ecf (patch)
tree6321964badec7e66e36cd01de96c22965534e40f /tests/util.test
parentd550e5f966a4d8b906c6f83fe250a00dd912151e (diff)
parent9a01f0fa35b397ca135b063c7b4740e92d709532 (diff)
downloadtcl-fe472174f89b1e1b88ffb459768387c693559ecf.zip
tcl-fe472174f89b1e1b88ffb459768387c693559ecf.tar.gz
tcl-fe472174f89b1e1b88ffb459768387c693559ecf.tar.bz2
Merge 8.7
Diffstat (limited to 'tests/util.test')
-rw-r--r--tests/util.test12
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