From d894ead020bd4783df01cd4b5a0ac882dcae5d2f Mon Sep 17 00:00:00 2001 From: oehhar Date: Sat, 10 Sep 2022 06:04:09 +0000 Subject: Ticket [6978c01b65]: add file encoding test io-75.3 with incomplete multibyte sequence. This may fail in TCL 9. --- tests/io.test | 25 +++++++++++++++++++++++-- 1 file changed, 23 insertions(+), 2 deletions(-) diff --git a/tests/io.test b/tests/io.test index 88d13de..764e9f0 100644 --- a/tests/io.test +++ b/tests/io.test @@ -8814,12 +8814,14 @@ test io-74.1 {[104f2885bb] improper cache validity check} -setup { removeFile io-74.1 } -returnCodes error -match glob -result {can not find channel named "*"} -# Note: the following tests are in preparation for TCL 9.0, where those should -# result in an error result +# Note: the following tests 75.1 to 75.3 are in preparation for TCL 9.0, where +# those should result in an error result test io-75.1 {multibyte encoding error read results in raw bytes} -setup { set fn [makeFile {} io-75.1] set f [open $fn w+] fconfigure $f -encoding binary + # In UTF-8, a byte 0xCx starts a multibyte sequence and must be followed + # by a byte > 0x7F. This is violated to get an invalid sequence. puts -nonewline $f "A\xC0\x40" flush $f seek $f 0 @@ -8847,6 +8849,25 @@ test io-75.2 {unrepresentable character write passes and is replaced by ?} -setu removeFile io-75.2 } -returnCodes ok -result "A?" +# Incomplete sequence test. +# This error may IMHO only be detected with the close. +# But the read already returns the incomplete sequence. +test io-75.3 {incomplete multibyte encoding read is ignored} -setup { + set fn [makeFile {} io-75.3] + set f [open $fn w+] + fconfigure $f -encoding binary + puts -nonewline $f "A\xC0" + flush $f + seek $f 0 + fconfigure $f -encoding utf-8 -buffering none +} -body { + set d [read $f] + close $f + set d +} -cleanup { + removeFile io-75.3 +} -returnCodes ok -result "A\xC0" + # ### ### ### ######### ######### ######### # cleanup -- cgit v0.12