summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-08-05 22:36:00 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-08-05 22:36:00 (GMT)
commit97436a436ee4b19926ee332ba593027e24264efc (patch)
treeb7831cf4204afb5dc1da613a0df9aa679bfe5e46 /tests
parent67ca3bc02a763d338724a1afb2162e4c4a113e56 (diff)
downloadtcl-97436a436ee4b19926ee332ba593027e24264efc.zip
tcl-97436a436ee4b19926ee332ba593027e24264efc.tar.gz
tcl-97436a436ee4b19926ee332ba593027e24264efc.tar.bz2
* library/tcltest/tcltest.tcl: The setup and cleanup scripts are now
* library/tcltest/pkgIndex.tcl: skipped when a test is skipped, fixing * tests/tcltest.test: [Bug 589859]. Test for bug added, and corrected tcltest package bumped to version 2.2.
Diffstat (limited to 'tests')
-rwxr-xr-xtests/tcltest.test20
1 files changed, 19 insertions, 1 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test
index 5babf5c..2a0523f 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.32 2002/07/10 18:51:54 dgp Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.33 2002/08/05 22:36:00 dgp Exp $
# Note that there are several places where the value of
# tcltest::currentFailure is stored/reset in the -setup/-cleanup
@@ -1668,6 +1668,24 @@ test tcltest-24.20 {
*(negative matching):
*}
+test tcltest-25.1 {
+ constraint of setup/cleanup (Bug 589859)
+} -setup {
+ set foo 0
+} -body {
+ # Buggy tcltest will generate result of 2
+ test tcltest-25.1.0 {} -constraints knownBug -setup {
+ incr foo
+ } -body {
+ incr foo
+ } -cleanup {
+ incr foo
+ } -match glob -result *
+ set foo
+} -cleanup {
+ unset foo
+} -result 0
+
cleanupTests
}