diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-14 17:49:27 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-14 17:49:27 (GMT) |
| commit | 890dbba35a9366f68f9fbc67ae5bcd5baa3612d1 (patch) | |
| tree | 780e718e2cc4370facf2dc718c6c664df173b2c9 | |
| parent | 0d2f5506580cc30d20fc28304998de48ef2660b1 (diff) | |
| download | tcl-890dbba35a9366f68f9fbc67ae5bcd5baa3612d1.zip tcl-890dbba35a9366f68f9fbc67ae5bcd5baa3612d1.tar.gz tcl-890dbba35a9366f68f9fbc67ae5bcd5baa3612d1.tar.bz2 | |
Same issue fixed for test string-20.8*
| -rw-r--r-- | tests/string.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/string.test b/tests/string.test index 9c30caa..98890f9 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1829,17 +1829,17 @@ test string-20.7.$noComp {string trim on not valid utf-8 sequence (consider NTS } [list {*}[lrepeat 3 fooUV] {*}[lrepeat 2 UV V]] test string-20.8.$noComp {[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 [testbytestring \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 [run {string trimright $b x}]] lappend result [string map $m [run {string trimright $b \xE8}]] lappend result [string map $m [run {string trimright $b [testbytestring \xE8]}]] - lappend result [string map $m [run {string trimright $b \x80}]] - lappend result [string map $m [run {string trimright $b [testbytestring \x80]}]] - lappend result [string map $m [run {string trimright $b \xE8\x80}]] - lappend result [string map $m [run {string trimright $b [testbytestring \xE8\x80]}]] + lappend result [string map $m [run {string trimright $b \xA0}]] + lappend result [string map $m [run {string trimright $b [testbytestring \xA0]}]] + lappend result [string map $m [run {string trimright $b \xE8\xA0}]] + lappend result [string map $m [run {string trimright $b [testbytestring \xE8\xA0]}]] lappend result [string map $m [run {string trimright $b \u0000}]] } [list {*}[lrepeat 4 fooUV] {*}[lrepeat 2 fooU] {*}[lrepeat 2 foo] fooUV] |