* 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]


FossilOrigin-Name: a513a0d6968511d0e9f0c149656950cd2d509e11

1 files changed, 8 insertions, 3 deletions

diff --git a/tests/tcltest.test b/tests/tcltest.test
index b085c0a..8aee3c5 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.42 2004/05/26 15:18:24 dgp Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.43 2004/05/26 16:25:01 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
 }