Ticket [6978c01b65]: add file encoding test io-75.3 with incomplete multibyte sequence. This may fail in TCL 9.

1 files 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