Tcl Source Code

With 252e282cd21b (2022-12-12 06:11:22 UTC)

# Create the test data
package require Tcl 9
set fd [open data.txt w+]
fconfigure $fd -encoding utf-8
puts $fd "A\U10FFFFBCDE"
close $fd


# The data is a valid UTF-8 encoded Unicode string
# in the understanding of Tcl.

# Try to read it
package require Tcl 9
set fd [open "data.txt"]
fconfigure $fd -encoding utf-8 -strictencoding 1 -nocomplainencoding 0
set data ""
while {![eof $fd]} {
    append data [read $fd]
}
# Not reached with this test data
puts [string length $data]
close $fd

I get:

error reading "file6": illegal byte sequence
    while executing
"read $fd"
    ("while" body line 2)
etc.


Expected behaviour:

Read the data without raising error.