* 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, 4 insertions, 4 deletions

diff --git a/tests/format.test b/tests/format.test
index b7990b3..567bc9e 100644
--- a/tests/format.test
+++ b/tests/format.test
@@ -10,10 +10,10 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: format.test,v 1.10 2002/02/15 14:28:50 dkf Exp $
+# RCS: @(#) $Id: format.test,v 1.11 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::*
 }
 
@@ -487,9 +487,9 @@ for {set i 290} {$i < 400} {incr i} {
     append b "x"
 }
 
-set ::tcltest::testConstraints(64bitInts) \
+::tcltest::testConstraint 64bitInts \
 	[expr {0x80000000 > 0}]
-set ::tcltest::testConstraints(wideIntExpressions) \
+::tcltest::testConstraint wideIntExpressions \
 	[expr {wide(0x80000000) != int(0x80000000)}]
 
 test format-17.1 {testing %d with wide} {64bitInts wideIntExpressions} {