diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 12:00:22 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:43 +1000 |
| commit | 2ae1c01c1b0b7d24fa2eeff3545b375d25c18c66 (patch) | |
| tree | d37b63d50fea502fe61b98943ca380a4aa4d053d /tests/case.test | |
| parent | 17b0f14f5e17efb7e70e47e711c6339e524875f8 (diff) | |
| download | jimtcl-2ae1c01c1b0b7d24fa2eeff3545b375d25c18c66.zip jimtcl-2ae1c01c1b0b7d24fa2eeff3545b375d25c18c66.tar.gz jimtcl-2ae1c01c1b0b7d24fa2eeff3545b375d25c18c66.tar.bz2 | |
Simplify expr evaluation
Diffstat (limited to 'tests/case.test')
| -rw-r--r-- | tests/case.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/case.test b/tests/case.test index 1973477..ce6075a 100644 --- a/tests/case.test +++ b/tests/case.test @@ -55,10 +55,10 @@ proc do_case {var} { return two } 3 { - return 33 + continue } 4 { - continue + return 44 } 5 { break @@ -76,5 +76,5 @@ test control-2.1 "Return from case" { lappend result [do_case $i] } set result -} {zero one two 33} +} {zero one two 44} |