summaryrefslogtreecommitdiffstats
path: root/tests/winPipe.test
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2004-06-02 22:12:58 (GMT)
committerdavygrvy <davygrvy@pobox.com>2004-06-02 22:12:58 (GMT)
commit3df62ce92645435661b8905f7fa0ad624100b1ba (patch)
tree1c33dd40489050d381df6f2979a1edd2147d21ce /tests/winPipe.test
parent75b52cdac572d8d56573be503fad931eaa398ab6 (diff)
downloadtcl-3df62ce92645435661b8905f7fa0ad624100b1ba.zip
tcl-3df62ce92645435661b8905f7fa0ad624100b1ba.tar.gz
tcl-3df62ce92645435661b8905f7fa0ad624100b1ba.tar.bz2
* 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.
Diffstat (limited to 'tests/winPipe.test')
-rw-r--r--tests/winPipe.test3
1 files changed, 2 insertions, 1 deletions
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}