diff options
| -rw-r--r-- | tests/chanio.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 487691a..7e0bda4 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.16 2008/12/18 01:14:17 ferrieux Exp $ +# RCS: @(#) $Id: chanio.test,v 1.17 2008/12/18 09:43:44 ferrieux Exp $ if {[catch {package require tcltest 2}]} { chan puts stderr "Skipping tests in [info script]. tcltest 2 required." @@ -2229,7 +2229,7 @@ test chan-io-28.5 {Tcl_Chan Close vs standard handles} {stdio unix testchannel o chan close $f set l } {file1 file2} -test chan-io-28.6 {Tcl_CloseEx (half-close) pipe} { +if {0} {test chan-io-28.6 {Tcl_CloseEx (half-close) pipe} { set cat [makeFile { fconfigure stdout -buffering line while {[gets stdin line]>=0} {puts $line} @@ -2249,7 +2249,7 @@ test chan-io-28.6 {Tcl_CloseEx (half-close) pipe} { vwait ::done close $::ff r list $::done $::acc -} {Succeeded {Hey DONE}} +} {Succeeded {Hey DONE}}} if {0} {test chan-io-28.7 {Tcl_CloseEx (half-close) socket} { set echo [makeFile { proc accept {s args} {set ::sok $s} |