fcopy $in $out
} -cleanup {
    close $in
    close $out
} -returnCodes 1 -match glob -result {error reading "file*": invalid or incomplete multibyte or wide character}

test io-52.20.1 {TclCopyChannel & read encoding error & tell position, bug [a173f9229]} -setup {
    set out [open $path(utf8-fcopy.txt) w]
    fconfigure $out -encoding utf-8 -translation lf
    puts $out "AÁ"
    close $out
} -constraints {fcopy knownBug} -body {
    # binary to encoding => the input has to be
    # in utf-8 to make sense to the encoder

    set in  [open $path(utf8-fcopy.txt) r]
    set out [open $path(kyrillic.txt) w]

    # Using "-encoding ascii" means reading the "Á" gives an error
    fconfigure $in  -encoding ascii -profile strict
    fconfigure $out -encoding koi8-r -translation lf

    set l {}
	# should fail, so 1 is added
    lappend l [catch {fcopy $in $out}]
	# should be at position 1, after the first correct byte, so 1 is read.
    lappend l [tell $in]
    # not sure, if flush required, but anyway
    flush $out
	# should be at position 1, after the first correct byte, so 1 is written.
    lappend l [tell $out]
} -cleanup {
    close $in
    close $out
} -returnCodes 0 -result {1 1 1}

test io-52.21 {TclCopyChannel & encodings} -setup {
    set out [open $path(utf8-fcopy.txt) w]
    fconfigure $out -encoding utf-8 -translation lf
    puts $out "Á"
    close $out
} -constraints {fcopy} -body {
    # binary to encoding => the input has to be