catch {read [teststringobj get 1]}
    read [teststringobj get 2]
} -cleanup {
    interp delete child
    testobj freeallvars
    removeFile io-74.1
} -returnCodes error -match glob -result {can not find channel named "*"}


test io-75.1 {multibyte encoding error read results in raw bytes (-strictencoding 0)} -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
	fconfigure $f -encoding utf-8 -strictencoding 0 -buffering none
} -body {
	read $f

} -cleanup {
	close $f
	removeFile io-75.1
} -returnCodes ok -result "A\xC0\x40"
# for TCL 9.0, the result is error

test io-75.2 {unrepresentable character write passes and is replaced by ? (-strictencoding 0)} -constraints deprecated -setup {
	set fn [makeFile {} io-75.2]
    set f [open $fn w+]
    fconfigure $f -encoding iso8859-1 -strictencoding 0
} -body {
	# the following command gets in result error in TCL 9.0
	puts -nonewline $f "A\u2022"
	flush $f

	removeFile io-75.4
} -returnCodes error

test io-75.5 {unrepresentable character write passes and is replaced by ? (-strictencoding 1} -setup {
	set fn [makeFile {} io-75.5]
    set f [open $fn w+]
    fconfigure $f -encoding iso8859-1
} -constraints knownBug -body {
	puts -nonewline $f "A\u2022"
} -cleanup {
	close $f
	removeFile io-75.5
} -returnCodes error

# Incomplete sequence test.
# This error may IMHO only be detected with the close.
# But the read already returns the incomplete sequence.
test io-75.6 {incomplete multibyte encoding read is ignored (-strictencoding 1)} -setup {
	set fn [makeFile {} io-75.6]
	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
} -constraints knownBug -body {
	set d [read $f]
	close $f
	set d
} -cleanup {
	removeFile io-75.5
} -returnCodes error

test io-75.7 {check if -tolerantencoding option is saved} -setup {
	set fn [makeFile {} io-75.7]
    set f [open $fn w]
} -body {
    fconfigure $f -encoding iso8859-1 -strictencoding 0
	lappend res [fconfigure $f -strictencoding]
    fconfigure $f -encoding iso8859-1 -strictencoding 1
	lappend res [fconfigure $f -strictencoding]
} -cleanup {
	close $f
	removeFile io-75.7
} -returnCodes ok -result "0 1"

# ### ### ### ######### ######### #########

# cleanup
foreach file [list fooBar longfile script script2 output test1 pipe my_script \
	test2 test3 cat stdout kyrillic.txt utf8-fcopy.txt utf8-rp.txt] {
    removeFile $file
}
cleanupTests
}
namespace delete ::tcl::test::io
return