diff options
Diffstat (limited to 'tests/regexp2.test')
| -rw-r--r-- | tests/regexp2.test | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/tests/regexp2.test b/tests/regexp2.test index 2349a96..38fe88b 100644 --- a/tests/regexp2.test +++ b/tests/regexp2.test @@ -13,15 +13,11 @@ # # RCS: @(#) $Id$ -source testing.tcl - -catch {package require regexp} -if {[info commands regexp] eq "" || [regexp {\d} 1] == 0} { - # No regexp, or not using a sufficiently capable regexp implementation - puts " --- skipped" - exit 0 -} +source [file dirname [info script]]/testing.tcl +needs cmd regexp +testConstraint regexp_are [regexp {\d} 1] +needs constraint regexp_are # Procedure to evaluate a script within a proc, to test compilation # functionality |