diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | tests/chanio.test | 16 |
2 files changed, 16 insertions, 5 deletions
@@ -24,6 +24,11 @@ 2008-12-18 Don Porter <dgp@users.sourceforge.net> + * tests/chanio.test: Replaced [chan event] handlers that + returned TCL_RETURN return code, with more conventional ones + that return TCL_OK to suppress otherwise strange writes of + outdated $::errorInfo values to stderr. [Bug 2444274]. + * generic/tclExecute.c: Disabled apparently faulty assertion. [Bug 2415422]. 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 |