From 0d2f5506580cc30d20fc28304998de48ef2660b1 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 14 Apr 2020 17:45:34 +0000 Subject: Expose the failing tests. Fix string-20.7 by using an invalid single byte that is stable in its meaning across different Tcl versions. --- tests/string.test | 8 ++++---- 1 file 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 -- cgit v0.12