summaryrefslogtreecommitdiffstats
path: root/tests/winPipe.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/winPipe.test')
-rw-r--r--tests/winPipe.test26
1 files changed, 11 insertions, 15 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test
index 27d1ff3..a2df9b6 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -1,10 +1,10 @@
-#
+#
# winPipe.test --
#
# This file contains a collection of tests for tclWinPipe.c
#
-# Sourcing this file into Tcl runs the tests and generates output for
-# errors. No output means no errors were found.
+# Sourcing this file into Tcl runs the tests and generates output for errors.
+# No output (except for one message) means no errors were found.
#
# Copyright (c) 1996 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
@@ -12,24 +12,20 @@
# 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.32 2006/11/02 16:33:22 dkf Exp $
+# RCS: @(#) $Id: winPipe.test,v 1.33 2006/11/03 15:31:26 dkf Exp $
package require tcltest
namespace import -force ::tcltest::*
unset -nocomplain path
-testConstraint exec [llength [info commands exec]]
set bindir [file join [pwd] [file dirname [info nameofexecutable]]]
set cat32 [file join $bindir cat32.exe]
-testConstraint cat32 [file exists $cat32]
-
-if {[catch {puts console1 ""}]} {
- testConstraint AllocConsole 1
-} else {
- testConstraint .console 1
-}
+testConstraint exec [llength [info commands exec]]
+testConstraint cat32 [file exists $cat32]
+testConstraint AllocConsole [catch {puts console1 ""}]
+testConstraint RealConsole [expr {![testConstraint AllocConsole]}]
set big bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\n
append big $big
@@ -97,7 +93,7 @@ test winpipe-1.8 {32 bit comprehensive tests: from socket} {win cat32} {
# doesn't work
} {}
test winpipe-1.9 {32 bit comprehensive tests: from nowhere} \
- {win exec cat32 .console} {
+ {win exec cat32 RealConsole} {
exec $cat32 > $path(stdout) 2> $path(stderr)
list [contents $path(stdout)] [contents $path(stderr)]
} {{} stderr32}
@@ -145,8 +141,8 @@ test winpipe-1.17 {32 bit comprehensive tests: to NUL} {win exec cat32} {
set msg
} stderr32
test winpipe-1.18 {32 bit comprehensive tests: to nowhere} \
- {win exec cat32 .console} {
- exec $cat32 < $path(big) >&@stdout
+ {win exec cat32 RealConsole} {
+ exec $cat32 < $path(big) >&@stdout
} {}
test winpipe-1.19 {32 bit comprehensive tests: to file handle} {win exec cat32} {
set f1 [open $path(stdout) w]