From 26c4e7b9006efa15622227a5afe5198e8d0193be Mon Sep 17 00:00:00 2001
From: ferrieux <ferrieux@users.sourceforge.net>
Date: Thu, 18 Dec 2008 09:43:44 +0000
Subject: Temporarily disable half-close test because of issue in tcltest
 cleanup

---
 tests/chanio.test | 6 +++---
 1 file 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}
-- 
cgit v0.12