summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs@noemail.net>2001-08-22 23:55:26 (GMT)
committerhobbs <hobbs@noemail.net>2001-08-22 23:55:26 (GMT)
commitb7b49c06fbd5a33ca298d8977c2058e05ce0bbe1 (patch)
tree2bd1e0bb547f1badb27fda1e53211216c996d30d /tests
parentfd9b980ecc648a915ac8511cf1acd489bacd4288 (diff)
downloadtcl-b7b49c06fbd5a33ca298d8977c2058e05ce0bbe1.zip
tcl-b7b49c06fbd5a33ca298d8977c2058e05ce0bbe1.tar.gz
tcl-b7b49c06fbd5a33ca298d8977c2058e05ce0bbe1.tar.bz2
* tests/tcltest.test: added unixExecs constraint to files that
used 'grep' in the test. [Bug #453143] FossilOrigin-Name: c3cfcd448ddf2cbfa52fb520ef62c0d53b63e458
Diffstat (limited to 'tests')
-rwxr-xr-xtests/tcltest.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test
index f1c8485..92cca87 100755
--- a/tests/tcltest.test
+++ b/tests/tcltest.test
@@ -6,7 +6,7 @@
# Copyright (c) 2000 by Ajuba Solutions
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.test,v 1.15 2001/08/22 01:29:18 hobbs Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.16 2001/08/22 23:55:27 hobbs Exp $
set tcltestVersion [package require tcltest]
namespace import -force ::tcltest::*
@@ -314,21 +314,21 @@ test tcltest-6.1 {tcltest -outfile, -errfile defaults} {
-result {a test.*a really}
-match regexp
}
-test tcltest-6.2 {tcltest -outfile a.tmp} {unixOrPc} {
+test tcltest-6.2 {tcltest -outfile a.tmp} {unixOrPc unixExecs} {
catch {exec $::tcltest::tcltest printerror.tcl -outfile a.tmp} msg
set result1 [catch {exec grep "a test" a.tmp}]
set result2 [catch {exec grep "a really" a.tmp}]
list [regexp "a test" $msg] [regexp "a really" $msg] \
$result1 $result2 [file exists a.tmp] [file delete a.tmp]
} {0 1 0 1 1 {}}
-test tcltest-6.3 {tcltest -errfile a.tmp} {unixOrPc} {
+test tcltest-6.3 {tcltest -errfile a.tmp} {unixOrPc unixExecs} {
catch {exec $::tcltest::tcltest printerror.tcl -errfile a.tmp} msg
set result1 [catch {exec grep "a test" a.tmp}]
set result2 [catch {exec grep "a really" a.tmp}]
list [regexp "a test" $msg] [regexp "a really" $msg] \
$result1 $result2 [file exists a.tmp] [file delete a.tmp]
} {1 0 1 0 1 {}}
-test tcltest-6.4 {tcltest -outfile a.tmp -errfile b.tmp} {unixOrPc} {
+test tcltest-6.4 {tcltest -outfile a.tmp -errfile b.tmp} {unixOrPc unixExecs} {
catch {exec $::tcltest::tcltest printerror.tcl -outfile a.tmp -errfile b.tmp} msg
set result1 [catch {exec grep "a test" a.tmp}]
set result2 [catch {exec grep "a really" b.tmp}]