* Corrections to tcltest and the Tcl test suite so that a test

        with options -constraints knownBug -limitConstraints 1 only tests
	the knownBug tests.  Mostly involves replacing direct access to the
        testConstraints array with calls to the testConstraint command
        (which requires tcltest version 2).

1 files changed, 5 insertions, 5 deletions

diff --git a/tests/stack.test b/tests/stack.test
index 119d928..8d07bfb 100644
--- a/tests/stack.test
+++ b/tests/stack.test
@@ -9,10 +9,10 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: stack.test,v 1.13 2002/06/06 21:01:48 dgp Exp $
+# RCS: @(#) $Id: stack.test,v 1.14 2002/06/22 04:19:47 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2
     namespace import -force ::tcltest::*
 }
 
@@ -30,12 +30,12 @@ if {[string equal $::tcl_platform(platform) "unix"]} {
                 may cause Tcl to\ncrash due to stack overflow before the\
                 recursion limit is reached.\nA minimum stacksize of 2400\
                 kbytes is recommended.\nSkipping infinite recursion test."
-        set ::tcltest::testConstraints(minStack2400) 0
+        ::tcltest::testConstraint minStack2400 0
     } else {
-        set ::tcltest::testConstraints(minStack2400) 1
+        ::tcltest::testConstraint minStack2400 1
     }
 } else {
-    set ::tcltest::testConstraints(minStack2400) 1
+    ::tcltest::testConstraint minStack2400 1
 }
 
 test stack-1.1 {maxNestingDepth reached on infinite recursion} {minStack2400} {