summaryrefslogtreecommitdiffstats
path: root/tests/chanio.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/chanio.test')
-rw-r--r--tests/chanio.test16
1 files changed, 11 insertions, 5 deletions
diff --git a/tests/chanio.test b/tests/chanio.test
index 0535bbd..1c77e53 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: chanio.test,v 1.19 2008/12/18 23:48:39 andreas_kupries Exp $
+# RCS: @(#) $Id: chanio.test,v 1.20 2008/12/19 03:31:00 dgp Exp $
if {[catch {package require tcltest 2}]} {
chan puts stderr "Skipping tests in [info script]. tcltest 2 required."
@@ -2141,8 +2141,11 @@ test chan-io-28.6 {Tcl_CloseEx (half-close) pipe} {
set timer [after 1000 {set ::done Failed}]
set ::acc {}
fileevent $::ff readable {
- if {[gets $::ff line]<0} {set ::done Succeeded;return}
- lappend ::acc $line
+ if {[gets $::ff line]<0} {
+ set ::done Succeeded
+ } else {
+ lappend ::acc $line
+ }
}
vwait ::done
after cancel $timer
@@ -2169,8 +2172,11 @@ test chan-io-28.7 {Tcl_CloseEx (half-close) socket} {
set timer [after 1000 {set ::done Failed}]
set ::acc {}
fileevent $::s readable {
- if {[gets $::s line]<0} {set ::done Succeeded;return}
- lappend ::acc $line
+ if {[gets $::s line]<0} {
+ set ::done Succeeded
+ } else {
+ lappend ::acc $line
+ }
}
vwait ::done
after cancel $timer