diff options
Diffstat (limited to 'tests/chanio.test')
| -rw-r--r-- | tests/chanio.test | 16 |
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 |