diff options
Diffstat (limited to 'tests/reg.test')
| -rw-r--r-- | tests/reg.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/reg.test b/tests/reg.test index c10f929..f35050b 100644 --- a/tests/reg.test +++ b/tests/reg.test @@ -9,19 +9,19 @@ # # Copyright (c) 1998, 1999 Henry Spencer. All rights reserved. # -# RCS: @(#) $Id: reg.test,v 1.13 2000/04/10 17:19:03 ericm Exp $ +# RCS: @(#) $Id: reg.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::* } # All tests require the testregexp command, return if this # command doesn't exist -set ::tcltest::testConstraints(testregexp) \ +::tcltest::testConstraint testregexp \ [expr {[info commands testregexp] != {}}] -set ::tcltest::testConstraints(localeRegexp) 0 +::tcltest::testConstraint localeRegexp 0 # This file uses some custom procedures, defined below, for regexp regression # testing. The name of the procedure indicates the general nature of the @@ -267,7 +267,7 @@ proc matchexpected {opts testid flags re target args} { if {[info exists regBug] && $regBug} { # This will register as a skipped test - test $prefix.[tno $testid] [desc $testid] knownBug {} {} + test $prefix.[tno $testid] [desc $testid] knownBug {format 0} {1} return } |