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/string.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/string.test')
| -rw-r--r-- | tests/string.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/string.test b/tests/string.test index cf658a2..a8a83d9 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1801,8 +1801,8 @@ test string-26.7 {tcl::prefix} -body { tcl::prefix match -exact {apa bepa cepa depa} be } -returnCodes 1 -result {bad option "be": must be apa, bepa, cepa, or depa} test string-26.8 {tcl::prefix} -body { - tcl::prefix match -message switch {apa bepa bear depa} be -} -returnCodes 1 -result {ambiguous switch "be": must be apa, bepa, bear, or depa} + tcl::prefix match -message wombat {apa bepa bear depa} be +} -returnCodes 1 -result {ambiguous wombat "be": must be apa, bepa, bear, or depa} test string-26.9 {tcl::prefix} -body { tcl::prefix match -error {} {apa bepa bear depa} be } -returnCodes 0 -result {} |