diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-25 14:25:05 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-25 14:25:05 (GMT) |
commit | 9a01f0fa35b397ca135b063c7b4740e92d709532 (patch) | |
tree | ad41a314551c3aaeee17a3ebd5b2c14e9455ee27 /tests/util.test | |
parent | 26bb60bef7dec62eac26ce44a6397c0958626cf4 (diff) | |
parent | 67f864dc656ad9a88f134514172bc55a2c73c3d5 (diff) | |
download | tcl-9a01f0fa35b397ca135b063c7b4740e92d709532.zip tcl-9a01f0fa35b397ca135b063c7b4740e92d709532.tar.gz tcl-9a01f0fa35b397ca135b063c7b4740e92d709532.tar.bz2 |
Merge 8.6
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 e1bd247..d8e5507 100644 --- a/tests/util.test +++ b/tests/util.test @@ -476,7 +476,7 @@ test util-7.4 {TclPrecTraceProc - write traces, bogus values} -constraints preci } -result {1 {can't set "tcl_precision": improper value for precision} 12} # 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() @@ -490,7 +490,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 @@ -500,14 +500,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 @@ -515,13 +515,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 |