diff options
author | dgp <dgp@users.sourceforge.net> | 2014-05-13 16:42:07 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-05-13 16:42:07 (GMT) |
commit | 3d7a8d7f99f6c4c1678cfedf68d673edf5c28e4f (patch) | |
tree | 2041437dd3a71ed84275ce0babea3fce245e11f6 /tests | |
parent | b482771754f287160a211cfe25fb24e135b52101 (diff) | |
parent | 2266861ddbdc18e12918eb94efeefc37edc894f8 (diff) | |
download | tcl-3d7a8d7f99f6c4c1678cfedf68d673edf5c28e4f.zip tcl-3d7a8d7f99f6c4c1678cfedf68d673edf5c28e4f.tar.gz tcl-3d7a8d7f99f6c4c1678cfedf68d673edf5c28e4f.tar.bz2 |
Salvaged what was left of value in the dgp-read-bytes-detour branch.
Refactored much management of the BLOCKED and EOF flags into ChanRead()
then began repairing some of the logic about them.
Tests iogt-2.* now fail because they've been crafted as experiments recording
the fine detail of reflected channel driver calls, and fixing the management
of channel flags is changing that.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/io.test | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test index f692e43..d9f133c 100644 --- a/tests/io.test +++ b/tests/io.test @@ -6626,11 +6626,23 @@ test io-52.4 {TclCopyChannel} {fcopy} { fconfigure $f1 -translation lf -blocking 0 fconfigure $f2 -translation cr -blocking 0 fcopy $f1 $f2 -size 40 - set result [list [fconfigure $f1 -blocking] [fconfigure $f2 -blocking]] + set result [list [fblocked $f1] [fconfigure $f1 -blocking] [fconfigure $f2 -blocking]] + close $f1 + close $f2 + lappend result [file size $path(test1)] +} {0 0 0 40} +test io-52.4.1 {TclCopyChannel} {fcopy} { + file delete $path(test1) + set f1 [open $thisScript] + set f2 [open $path(test1) w] + fconfigure $f1 -translation lf -blocking 0 -buffersize 10000000 + fconfigure $f2 -translation cr -blocking 0 + fcopy $f1 $f2 -size 40 + set result [list [fblocked $f1] [fconfigure $f1 -blocking] [fconfigure $f2 -blocking]] close $f1 close $f2 lappend result [file size $path(test1)] -} {0 0 40} +} {0 0 0 40} test io-52.5 {TclCopyChannel, all} {fcopy} { file delete $path(test1) set f1 [open $thisScript] |