summaryrefslogtreecommitdiffstats
path: root/tests/io.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-29 15:04:52 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-29 15:04:52 (GMT)
commita317bfbe0735d86682ee279cd1359576169bb8db (patch)
treed951445f494d1c37abde27c5ed76ca13e2802783 /tests/io.test
parent1d5af978995371afaa672cebd55f527be43abe94 (diff)
parentd344208a62df4671dac9a66fa4589979bc68d7bb (diff)
downloadtcl-a317bfbe0735d86682ee279cd1359576169bb8db.zip
tcl-a317bfbe0735d86682ee279cd1359576169bb8db.tar.gz
tcl-a317bfbe0735d86682ee279cd1359576169bb8db.tar.bz2
Refinements of FlushChannel() and its callers. Notably includes removal of the flag BUFFER_READY.
Diffstat (limited to 'tests/io.test')
-rw-r--r--tests/io.test14
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/io.test b/tests/io.test
index adcc3da..023af06 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -2810,7 +2810,7 @@ test io-29.34 {Tcl_Close, async flush on close, using sockets} {socket tempNotMa
variable x running
set l abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz
proc writelots {s l} {
- for {set i 0} {$i < 2000} {incr i} {
+ for {set i 0} {$i < 9000} {incr i} {
puts $s $l
}
}
@@ -2841,7 +2841,7 @@ test io-29.34 {Tcl_Close, async flush on close, using sockets} {socket tempNotMa
close $ss
vwait [namespace which -variable x]
set c
-} 2000
+} 9000
test io-29.35 {Tcl_Close vs fileevent vs multiple interpreters} {socket tempNotMac fileevent} {
# On Mac, this test screws up sockets such that subsequent tests using port 2828
# either cause errors or panic().
@@ -7144,17 +7144,17 @@ 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(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
+# 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+]