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/case.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/case.test')
-rw-r--r-- | tests/case.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/case.test b/tests/case.test index 74f7405..ad35756 100644 --- a/tests/case.test +++ b/tests/case.test @@ -1,4 +1,6 @@ -source testing.tcl +source [file dirname [info script]]/testing.tcl + +needs cmd case {tclcompat} catch {unset result} test case-1.1 "Simple case" { @@ -80,3 +82,5 @@ test case-2.6 "break from case" { list [catch {do_case 6} msg] $msg } {1 {invoked "break" outside of a loop}} } + +testreport |