diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-14 17:45:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-14 17:45:34 (GMT) |
| commit | 0d2f5506580cc30d20fc28304998de48ef2660b1 (patch) | |
| tree | 3d023ae4b7db5134305a17a6cbe64c9ec2adc194 | |
| parent | 5999fb96666df992ea33a641af2fe1fec8b95587 (diff) | |
| download | tcl-0d2f5506580cc30d20fc28304998de48ef2660b1.zip tcl-0d2f5506580cc30d20fc28304998de48ef2660b1.tar.gz tcl-0d2f5506580cc30d20fc28304998de48ef2660b1.tar.bz2 | |
Expose the failing tests. Fix string-20.7 by using an invalid single byte
that is stable in its meaning across different Tcl versions.
| -rw-r--r-- | tests/string.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/string.test b/tests/string.test index 909bdfc..9c30caa 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1814,11 +1814,11 @@ test string-20.5.$noComp {string trimright} { test string-20.6.$noComp {string trimright, unicode default} { run {string trimright ABC\u1361\x85\x00\xA0\u1680\u180E\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200A\u200B\u2028\u2029\u202F\u205F\u3000} } ABC\u1361 -test string-20.7.$noComp {string trim on not valid utf-8 sequence (consider NTS as continuation char), bug [c61818e4c9]} {testbytestring knownBug} { +test string-20.7.$noComp {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 \x00 U \x88 V [testbytestring \x88] W] + set m [list \x00 U \xA0 V [testbytestring \xA0] W] 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 \x00}]] @@ -1827,7 +1827,7 @@ test string-20.7.$noComp {string trim on not valid utf-8 sequence (consider NTS lappend result [string map $m [run {string trim $b fox}]] lappend result [string map $m [run {string trim $b fo\x00}]] } [list {*}[lrepeat 3 fooUV] {*}[lrepeat 2 UV V]] -test string-20.8.$noComp {[c61818e4c9] [string trimright] fails when UtfPrev is ok} {testbytestring knownBug} { +test string-20.8.$noComp {[c61818e4c9] [string trimright] fails when UtfPrev is ok} {testbytestring} { set result {} set a [testbytestring \xE8\x80] set b foo$a |