diff options
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 |