From 3df62ce92645435661b8905f7fa0ad624100b1ba Mon Sep 17 00:00:00 2001
From: davygrvy <davygrvy@pobox.com>
Date: Wed, 2 Jun 2004 22:12:58 +0000
Subject: * tests/winPipe.c (winpipe-6.1): blocking set to 1 before closing to
 ensure we get an exitcode.  The windows pipe channel driver doesn't
 differentiate between a blocking and non-blocking close just yet, but will
 soon.

---
 tests/winPipe.test | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/winPipe.test b/tests/winPipe.test
index 36af34b..c41e39b 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: winPipe.test,v 1.28 2004/05/25 19:38:16 dgp Exp $
+# RCS: @(#) $Id: winPipe.test,v 1.29 2004/06/02 22:12:58 davygrvy Exp $
 
 package require tcltest
 namespace import -force ::tcltest::*
@@ -295,6 +295,7 @@ test winpipe-6.1 {PipeSetupProc & PipeCheckProc: read threads} \
     lappend x [read $f]
     after 100 { lappend x timeout }
     vwait x
+    fconfigure $f -blocking 1
     lappend x [catch {close $f} msg] $msg
 } {writable timeout readable {foobar
 } timeout 1 stderr32}
-- 
cgit v0.12