diff options
author | dgp <dgp@users.sourceforge.net> | 2013-06-11 16:44:34 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-06-11 16:44:34 (GMT) |
commit | eee0c67ac8f3ae799c0222a6b0c4ad25c757b7e5 (patch) | |
tree | 3955177c31b2f3c7bd87fef418f9603443834981 /tests/error.test | |
parent | 70891d45411fa4695f4620b26dda06e94143967e (diff) | |
download | tcl-eee0c67ac8f3ae799c0222a6b0c4ad25c757b7e5.zip tcl-eee0c67ac8f3ae799c0222a6b0c4ad25c757b7e5.tar.gz tcl-eee0c67ac8f3ae799c0222a6b0c4ad25c757b7e5.tar.bz2 |
[33b7abb8a2] [7174354ecb] Rewrite TclCompileThrowCmd().
Diffstat (limited to 'tests/error.test')
-rw-r--r-- | tests/error.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/error.test b/tests/error.test index 273577a..06f8eca 100644 --- a/tests/error.test +++ b/tests/error.test @@ -317,6 +317,12 @@ test error-8.8 {throw syntax checks} -returnCodes error -body { test error-8.9 {throw syntax checks} -returnCodes error -body { throw {} foo } -result {type must be non-empty list} +test error-8.10 {Bug 33b7abb8a2: throw stack usage} -returnCodes error -body { + apply {code {throw $code foo}} {} +} -result {type must be non-empty list} +test error-8.11 {Bug 7174354ecb: throw error message} -returnCodes error -body { + throw {not {}a list} x[]y +} -result {list element in braces followed by "a" instead of space} # simple try tests: body completes with code ok |