diff options
author | ferrieux <ferrieux@noemail.net> | 2008-12-18 09:43:44 (GMT) |
---|---|---|
committer | ferrieux <ferrieux@noemail.net> | 2008-12-18 09:43:44 (GMT) |
commit | 236c35126e5b63cc9b8f64c4c8ce1fc75878c43b (patch) | |
tree | 61097db9db012d513e16ab718e767a653e69c7a8 /tests | |
parent | 9fd685365096aae3d04e9af1b6905c5702ca2508 (diff) | |
download | tcl-236c35126e5b63cc9b8f64c4c8ce1fc75878c43b.zip tcl-236c35126e5b63cc9b8f64c4c8ce1fc75878c43b.tar.gz tcl-236c35126e5b63cc9b8f64c4c8ce1fc75878c43b.tar.bz2 |
Temporarily disable half-close test because of issue in tcltest cleanup
FossilOrigin-Name: 2df3f7408eba7155477df58a564c6a33b23897d6
Diffstat (limited to 'tests')
-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} |