diff options
author | dgp <dgp@users.sourceforge.net> | 2004-05-26 16:24:32 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2004-05-26 16:24:32 (GMT) |
commit | 1a4fc4e06022239f578ed926c7c8aae9b4fd2771 (patch) | |
tree | f2c96e617c7a1b44387f1aecd456d549c3660404 /tests | |
parent | e760e951a2ad64d620745f1b5b6736c2a6dcadf9 (diff) | |
download | tcl-1a4fc4e06022239f578ed926c7c8aae9b4fd2771.zip tcl-1a4fc4e06022239f578ed926c7c8aae9b4fd2771.tar.gz tcl-1a4fc4e06022239f578ed926c7c8aae9b4fd2771.tar.bz2 |
* library/tcltest/tcltest.tcl: Correction to debug prints and testing
* library/tcltest/pkgIndex.tcl: if TCLTEST_OPTIONS value. Corrected
* tests/tcltest.test: double increment of numTestFiles in
-singleproc 1 configurations. Updated tcltest-19.1 to tcltest 2.1
behavior. Corrected tcltest-25.3 to not falsely report a failure
in tcltest.test. Bumped to tcltest 2.2.6. [Bugs 960560, 960926]
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/tcltest.test | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index e4cfc75..42797fa 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.37.2.3 2004/05/26 15:13:50 dgp Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.37.2.4 2004/05/26 16:24:38 dgp Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -1725,14 +1725,19 @@ test tcltest-25.2 { test tcltest-25.3 { reported return code (Bug 611922) +} -setup { + set fail $::tcltest::currentFailure + set v [verbose] } -body { - # Buggy tcltest will generate result of 2 + verbose {} test tcltest-25.3.0 {} -body { error foo } +} -cleanup { + set ::tcltest::currentFailure $fail + verbose $v } -match glob -output {*generated error; Return code was: 1*} - cleanupTests } |