diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-21 11:11:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-21 11:11:02 (GMT) |
| commit | 48dcbfcc5b65ce91d157d0faa2db21f6035879e9 (patch) | |
| tree | c6ad80148f19f7e91f0c88ad85b72bc5112b4a64 | |
| parent | f5c47e4402864aa6d6f5f120c231c39423dcc360 (diff) | |
| download | tcl-48dcbfcc5b65ce91d157d0faa2db21f6035879e9.zip tcl-48dcbfcc5b65ce91d157d0faa2db21f6035879e9.tar.gz tcl-48dcbfcc5b65ce91d157d0faa2db21f6035879e9.tar.bz2 | |
Some test-cases, which test for partial read without throwing EILSEQ immediately, only work with ""-blocking 0". That's expected.
| -rw-r--r-- | tests/io.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/io.test b/tests/io.test index 9246bd8..58d276b 100644 --- a/tests/io.test +++ b/tests/io.test @@ -9110,10 +9110,10 @@ test io-75.3 {incomplete multibyte encoding read is ignored (-profile tcl8)} -se fconfigure $f -encoding utf-8 -buffering none -profile tcl8 } -body { set d [read $f] - close $f binary scan $d H* hd set hd } -cleanup { + close $f removeFile io-75.3 } -result 41c0 @@ -9148,10 +9148,10 @@ test io-75.5 {invalid utf-8 encoding read is ignored (-profile tcl8)} -setup { fconfigure $f -encoding utf-8 -buffering none -eofchar "" -translation lf -profile tcl8 } -body { set d [read $f] - close $f binary scan $d H* hd set hd } -cleanup { + close $f removeFile io-75.5 } -result 4181 @@ -9234,10 +9234,10 @@ test io-75.10 {incomplete multibyte encoding read is ignored} -setup { fconfigure $f -encoding utf-8 -buffering none } -body { set d [read $f] - close $f binary scan $d H* hd set hd } -cleanup { + close $f removeFile io-75.10 } -result 41c0 # The current result returns the orphan byte as byte. @@ -9254,7 +9254,7 @@ test io-75.11 {shiftjis encoding error read results in raw bytes} -setup { puts -nonewline $f A\x81\xFFA flush $f seek $f 0 - fconfigure $f -encoding shiftjis -buffering none -eofchar "" -translation lf -profile strict + fconfigure $f -encoding shiftjis -blocking 0 -eofchar "" -translation lf -profile strict } -body { set d [read $f] binary scan $d H* hd @@ -9289,7 +9289,7 @@ test io-75.13 {invalid utf-8 encoding read is not ignored (-profile strict)} -se puts -nonewline $f "A\x81" flush $f seek $f 0 - fconfigure $f -encoding utf-8 -buffering none -eofchar "" -translation lf -profile strict + fconfigure $f -encoding utf-8 -blocking 0 -eofchar "" -translation lf -profile strict } -body { set d [read $f] binary scan $d H* hd |