summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-31 02:40:00 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-31 02:40:00 (GMT)
commit46ab1371a7cbd2e6d244d043a47d5123a716be33 (patch)
tree8772939968bbf992cb7f11d20a0a235c7cd4c691 /tests
parenta317bfbe0735d86682ee279cd1359576169bb8db (diff)
parentea994aa1957bd3faea8f4cdf2ae290d102ae1fe8 (diff)
downloadtcl-46ab1371a7cbd2e6d244d043a47d5123a716be33.zip
tcl-46ab1371a7cbd2e6d244d043a47d5123a716be33.tar.gz
tcl-46ab1371a7cbd2e6d244d043a47d5123a716be33.tar.bz2
Correct the interest masks in the Tcl_CreateFileHandler() calls in PipeWatchProc(). When we are interested in both readable and writable events of a command pipeline channel, we only want the readable from the read end of the pipe, and the writable from the write end of the pipe.
Diffstat (limited to 'tests')
-rw-r--r--tests/io.test6
1 files changed, 0 insertions, 6 deletions
diff --git a/tests/io.test b/tests/io.test
index 023af06..96ea14b 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -7144,17 +7144,12 @@ test io-53.4 {CopyData: background write overflow} {stdio unix openpipe fileeven
for {set x 0} {$x < 12} {incr x} {
append big $big
}
-# file delete $path(test1)
file delete $path(pipe)
set f1 [open $path(pipe) w]
puts $f1 {
puts ready
fcopy stdin stdout -command { set x }
vwait x
-# set f [open $path(test1) w]
-# fconfigure $f -translation lf
-# puts $f "done"
-# close $f
}
close $f1
set f1 [open "|[list [interpreter] $path(pipe)]" r+]
@@ -7162,7 +7157,6 @@ test io-53.4 {CopyData: background write overflow} {stdio unix openpipe fileeven
fconfigure $f1 -blocking 0
puts $f1 $big
flush $f1
- after 500
set result ""
fileevent $f1 read [namespace code {
append result [read $f1 1024]