Remove currently failing test io-52.20.1 to check right file position after fcopy encoding read error

1 files changed, 0 insertions, 30 deletions

diff --git a/tests/io.test b/tests/io.test
index c2a82b0..341eee0 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -7655,36 +7655,6 @@ test io-52.20 {TclCopyChannel & encodings} -setup {
     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