summaryrefslogtreecommitdiffstats
path: root/tests/io.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-13 16:42:07 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-13 16:42:07 (GMT)
commit3d7a8d7f99f6c4c1678cfedf68d673edf5c28e4f (patch)
tree2041437dd3a71ed84275ce0babea3fce245e11f6 /tests/io.test
parentb482771754f287160a211cfe25fb24e135b52101 (diff)
parent2266861ddbdc18e12918eb94efeefc37edc894f8 (diff)
downloadtcl-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/io.test')
-rw-r--r--tests/io.test16
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]