flush $f
	seek $f 0
	read $f
} -cleanup {
	close $f
	removeFile io-75.2
} -returnCodes ok -result "A?"

test io-75.3 {check if -tolerantencoding option is saved} -setup {
	set fn [makeFile {} io-75.3]
    set f [open $fn w]
} -body {
	# the following command gets in result error in TCL 9.0
    fconfigure $f -encoding iso8859-1 -tolerantencoding 0
	lappend res [fconfigure $f -tolerantencoding]
    fconfigure $f -encoding iso8859-1 -tolerantencoding 1
	lappend res [fconfigure $f -tolerantencoding]
} -cleanup {
	close $f
	removeFile io-75.3
} -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