diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-14 17:54:44 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-14 17:54:44 (GMT) |
| commit | 937994af1cc230d72fc585cc627e3ebc35034392 (patch) | |
| tree | 3315f8db870439f9f12de7d55ac3d6ce3a9dc234 /tests/string.test | |
| parent | ef95b51d4c6c1176eeec1e3d1c954d1ba598545b (diff) | |
| parent | cf28c6b1dac27e2a0e39297fc096a656a598fa9b (diff) | |
| download | tcl-937994af1cc230d72fc585cc627e3ebc35034392.zip tcl-937994af1cc230d72fc585cc627e3ebc35034392.tar.gz tcl-937994af1cc230d72fc585cc627e3ebc35034392.tar.bz2 | |
merge 8.5
Diffstat (limited to 'tests/string.test')
| -rw-r--r-- | tests/string.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/string.test b/tests/string.test index 99e19a4..e4c39d2 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1564,9 +1564,9 @@ test string-20.6 {string trimright, unicode default} { } ABC\u1361 test string-20.7 {string trim on not valid utf-8 sequence (consider NTS as continuation char), bug [c61818e4c9]} testbytestring { set result {} - set a [testbytestring \xc0\x80\x88] + set a [testbytestring \xc0\x80\xA0] set b foo$a - set m [list \u0000 U \x88 V [testbytestring \x88] W] + set m [list \u0000 U \xA0 V [testbytestring \xA0] W] lappend result [string map $m $b] lappend result [string map $m [string trimright $b x]] lappend result [string map $m [string trimright $b \u0000]] @@ -1577,17 +1577,17 @@ test string-20.7 {string trim on not valid utf-8 sequence (consider NTS as conti } [list {*}[lrepeat 3 fooUV] {*}[lrepeat 2 UV V]] test string-20.8 {[c61818e4c9] [string trimright] fails when UtfPrev is ok} testbytestring { set result {} - set a [testbytestring \xE8\x80] + set a [testbytestring \xE8\xA0] set b foo$a - set m [list \xE8 U \x80 V [testbytestring \xE8] W [bytestring \x80] X]] + set m [list \xE8 U \xA0 V [testbytestring \xE8] W [testbytestring \xA0] X]] lappend result [string map $m $b] lappend result [string map $m [string trimright $b x]] lappend result [string map $m [string trimright $b \xE8]] lappend result [string map $m [string trimright $b [bytestring \xE8]]] - lappend result [string map $m [string trimright $b \x80]] - lappend result [string map $m [string trimright $b [bytestring \x80]]] - lappend result [string map $m [string trimright $b \xE8\x80]] - lappend result [string map $m [string trimright $b [bytestring \xE8\x80]]] + lappend result [string map $m [string trimright $b \xA0]] + lappend result [string map $m [string trimright $b [bytestring \xA0]]] + lappend result [string map $m [string trimright $b \xE8\xA0]] + lappend result [string map $m [string trimright $b [bytestring \xE8\xA0]]] lappend result [string map $m [string trimright $b \u0000]] } [list {*}[lrepeat 4 fooUV] {*}[lrepeat 2 fooU] {*}[lrepeat 2 foo] fooUV] |