diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-18 12:22:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-18 12:22:17 (GMT) |
| commit | 7f40dea1efc31fc14c832405c46361bc49a52ea7 (patch) | |
| tree | 4c6ec4a0b70f45eb7ced1f0ab91ac0d7940f53e9 /tests/switch.test | |
| parent | 4e7d04385e3894b881f8be44e2c25dc2931ac896 (diff) | |
| parent | 1bd8f407a5fc44a8b7a54bb78d8d29a2e5b0358f (diff) | |
| download | tcl-dkf_http_cookies.zip tcl-dkf_http_cookies.tar.gz tcl-dkf_http_cookies.tar.bz2 | |
merge trunkdkf_http_cookies
Diffstat (limited to 'tests/switch.test')
| -rw-r--r-- | tests/switch.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/switch.test b/tests/switch.test index a03948b..4d204bb 100644 --- a/tests/switch.test +++ b/tests/switch.test @@ -169,7 +169,7 @@ test switch-4.1 {error in executed command} { "switch a a {error "Just a test"} default {subst 1}"}} test switch-4.2 {error: not enough args} -returnCodes error -body { switch -} -result {wrong # args: should be "switch ?-switch ...? string ?pattern body ...? ?default body?"} +} -result {wrong # args: should be "switch ?-option ...? string ?pattern body ...? ?default body?"} test switch-4.3 {error: pattern with no body} -body { switch a b } -returnCodes error -result {extra switch pattern with no body} @@ -269,16 +269,16 @@ test switch-8.3 {weird body text, variable} { test switch-9.1 {empty pattern/body list} -returnCodes error -body { switch x -} -result {wrong # args: should be "switch ?-switch ...? string ?pattern body ...? ?default body?"} +} -result {wrong # args: should be "switch ?-option ...? string ?pattern body ...? ?default body?"} test switch-9.2 {unpaired pattern} -returnCodes error -body { switch -- x } -result {extra switch pattern with no body} test switch-9.3 {empty pattern/body list} -body { switch x {} -} -returnCodes error -result {wrong # args: should be "switch ?-switch ...? string {?pattern body ...? ?default body?}"} +} -returnCodes error -result {wrong # args: should be "switch ?-option ...? string {?pattern body ...? ?default body?}"} test switch-9.4 {empty pattern/body list} -body { switch -- x {} -} -returnCodes error -result {wrong # args: should be "switch ?-switch ...? string {?pattern body ...? ?default body?}"} +} -returnCodes error -result {wrong # args: should be "switch ?-option ...? string {?pattern body ...? ?default body?}"} test switch-9.5 {unpaired pattern} -body { switch x a {} b } -returnCodes error -result {extra switch pattern with no body} |