diff options
author | hobbs <hobbs> | 2001-08-22 23:55:27 (GMT) |
---|---|---|
committer | hobbs <hobbs> | 2001-08-22 23:55:27 (GMT) |
commit | 5632c45bbab15511baefd81981c2a5408b4ea11f (patch) | |
tree | 2bd1e0bb547f1badb27fda1e53211216c996d30d /tests/tcltest.test | |
parent | 9d43b3dea9e920c15f2601291fa33af5a40efdc4 (diff) | |
download | tcl-5632c45bbab15511baefd81981c2a5408b4ea11f.zip tcl-5632c45bbab15511baefd81981c2a5408b4ea11f.tar.gz tcl-5632c45bbab15511baefd81981c2a5408b4ea11f.tar.bz2 |
* tests/tcltest.test: added unixExecs constraint to files that
used 'grep' in the test. [Bug #453143]
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-x | tests/tcltest.test | 8 |
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}] |