diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-01-04 09:46:46 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-01-15 07:15:24 +1000 |
commit | 1cde3735df984ffb93be44bcb42af93c8f7d6847 (patch) | |
tree | 2772082ff60ba7e52020c4634ec875f74665a6a4 /tests | |
parent | 37cf9b17a7d0920625550fe9f7a7d64904c6d23a (diff) | |
download | jimtcl-1cde3735df984ffb93be44bcb42af93c8f7d6847.zip jimtcl-1cde3735df984ffb93be44bcb42af93c8f7d6847.tar.gz jimtcl-1cde3735df984ffb93be44bcb42af93c8f7d6847.tar.bz2 |
tclcompat: it is finally time to remove [case]
Use [switch] instead
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/case.test | 86 |
1 files changed, 0 insertions, 86 deletions
diff --git a/tests/case.test b/tests/case.test deleted file mode 100644 index ad35756..0000000 --- a/tests/case.test +++ /dev/null @@ -1,86 +0,0 @@ -source [file dirname [info script]]/testing.tcl - -needs cmd case {tclcompat} - -catch {unset result} -test case-1.1 "Simple case" { - foreach c {abc xyz def sdfbc basdf a aba} { - case $c in { - b* { - lappend result 1 - } - {ab a} { - lappend result 2 - } - {def *bc} { - lappend result 3 - } - default { - lappend result 4 - } - } - } - set result -} {3 4 3 3 1 2 4} - -# case is a proc, but it should be able -# to cause a return in do_case -proc do_case {var} { - case $var in { - 0 { - return - } - 1 { - return one - } - 2 { - return -code ok two - } - 3 { - return -code continue three - } - 4 { - return -code break four - } - 5 { - continue - } - 6 { - break - } - } - return zero -} - -test case-2.0 "Plain from case" { - do_case 0 -} {} - -test case-2.1 "Return from case with value" { - do_case 1 -} {one} - -test case-2.2 "Return -code ok from case" { - do_case 2 - list [catch {do_case 2} msg] $msg -} {0 two} - -test case-2.3 "Return -code continue from case" { - list [catch {do_case 3} msg] $msg -} {4 three} - -test case-2.4 "Return -code break from case" { - list [catch {do_case 4} msg] $msg -} {3 four} - -if {0} { -test case-2.5 "continue from case" { - list [catch {do_case 5} msg] $msg -} {1 {invoked "continue" outside of a loop}} - -test case-2.6 "break from case" { - list [catch {do_case 6} msg] $msg -} {1 {invoked "break" outside of a loop}} -} - -testreport |