summaryrefslogtreecommitdiffstats
path: root/tests/encoding.test
diff options
context:
space:
mode:
authoroehhar <harald.oehlmann@elmicron.de>2022-03-15 07:09:40 (GMT)
committeroehhar <harald.oehlmann@elmicron.de>2022-03-15 07:09:40 (GMT)
commit1975c98a5c09989a767f8288beec0e67abf408a3 (patch)
treeb350bdc164effb5fba8bc3308095ac2e8662fc4e /tests/encoding.test
parentfb7be1b475dce7bf5ba087fedbe93f83e2cb4f06 (diff)
downloadtcl-1975c98a5c09989a767f8288beec0e67abf408a3.zip
tcl-1975c98a5c09989a767f8288beec0e67abf408a3.tar.gz
tcl-1975c98a5c09989a767f8288beec0e67abf408a3.tar.bz2
TIP607 encoding failindex: test correction
Diffstat (limited to 'tests/encoding.test')
-rw-r--r--tests/encoding.test7
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 7a1e4e7..4284254 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -696,9 +696,10 @@ test encoding-24.30 {convertrom -failindex with correct data} -body {
set test
} -returnCodes 0 -result -1
test encoding-24.31 {convertrom -failindex with incomplete utf8} -body {
- set res [encoding convertfrom -failindex test A\xc3]
- lappend res $test
-} -returnCodes 0 -result {A 1}
+ set x [encoding convertfrom -failindex i A\xc3]
+ binary scan $x H* y
+ list $y $i
+} -returnCodes 0 -result {41 1}
file delete [file join [temporaryDirectory] iso2022.txt]