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/string.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/string.test')
-rw-r--r-- | tests/string.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/string.test b/tests/string.test index a42aacc..4a8746d 100644 --- a/tests/string.test +++ b/tests/string.test @@ -131,11 +131,11 @@ test string-2.11.3.$noComp {string compare, unicode} { run {string compare \334\334\334\374\374 \334\334\334\334\334} } 1 test string-2.12.$noComp {string compare, high bit} { - # This test will fail if the underlying comparaison + # This test will fail if the underlying comparison # is using signed chars instead of unsigned chars. # (like SunOS's default memcmp thus the compat/memcmp.c) run {string compare "\x80" "@"} - # Nb this tests works also in utf8 space because \x80 is + # Nb this tests works also in utf-8 space because \x80 is # translated into a 2 or more bytelength but whose first byte has # the high bit set. } 1 @@ -2315,7 +2315,7 @@ test string-28.12.$noComp {tcl::prefix longest} { tcl::prefix longest {apa {} appa} {} } {} test string-28.13.$noComp {tcl::prefix longest} { - # Test UTF8 handling + # Test utf-8 handling tcl::prefix longest {ax\x90 bep ax\x91} a } ax |