diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-10-30 15:21:21 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-11-22 13:27:14 +1000 |
| commit | 192056900583884bc1f07f371df6478d856ada3b (patch) | |
| tree | 540618a3e81d8d9e14261e267edb912f5b73710a /tests/regexp2.test | |
| parent | d98489727fe31fa217d237b36901211adc35282d (diff) | |
| download | jimtcl-192056900583884bc1f07f371df6478d856ada3b.zip jimtcl-192056900583884bc1f07f371df6478d856ada3b.tar.gz jimtcl-192056900583884bc1f07f371df6478d856ada3b.tar.bz2 | |
Overhaul unit test framework
Much closer to tcltest now, including constraints.
Try to get all appropriate tests running under both Jim and Tcl.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
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 |