summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-03-09 09:12:38 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-03-09 09:12:38 (GMT)
commit0f443aa5cb126f232e2ffb85bb63b1e93f89564c (patch)
tree0ad84f916420342085164f7dfc0af2fa1bc87e2e /tests
parente7ae31d6d3e1a343991401b5795fc1b04c6e8236 (diff)
downloadtcl-0f443aa5cb126f232e2ffb85bb63b1e93f89564c.zip
tcl-0f443aa5cb126f232e2ffb85bb63b1e93f89564c.tar.gz
tcl-0f443aa5cb126f232e2ffb85bb63b1e93f89564c.tar.bz2
Move the implementation of [try] from Tcl to C. Not yet bytecoded.
Diffstat (limited to 'tests')
-rw-r--r--tests/error.test26
1 files changed, 13 insertions, 13 deletions
diff --git a/tests/error.test b/tests/error.test
index 6125dd4..4eb765e 100644
--- a/tests/error.test
+++ b/tests/error.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: error.test,v 1.18 2009/01/13 20:30:04 dkf Exp $
+# RCS: @(#) $Id: error.test,v 1.19 2009/03/09 09:12:39 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -396,38 +396,38 @@ test error-13.1 {try with no arguments} -body {
# warning: error message may change
try
} -returnCodes error -match glob -result {wrong # args: *}
-test error-13.2 {try with body only (ok) } {
+test error-13.2 {try with body only (ok)} {
try list
} {}
-test error-13.3 {try with missing finally body } -body {
+test error-13.3 {try with missing finally body} -body {
# warning: error message may change
try list finally
-} -returnCodes error -match glob -result {wrong # args: *}
-test error-13.4 {try with bad handler keyword } -body {
+} -returnCodes error -match glob -result {wrong # args to finally clause: *}
+test error-13.4 {try with bad handler keyword} -body {
# warning: error message may change
try list then a b c
} -returnCodes error -match glob -result {bad handler *}
-test error-13.5 {try with partial handler #1 } -body {
+test error-13.5 {try with partial handler #1} -body {
# warning: error message may change
try list on
-} -returnCodes error -match glob -result {bad code *}
-test error-13.6 {try with partial handler #2 } -body {
+} -returnCodes error -match glob -result {wrong # args to on clause: *}
+test error-13.6 {try with partial handler #2} -body {
# warning: error message may change
try list on error
-} -returnCodes error -match glob -result {wrong # args: *}
-test error-13.7 {try with partial handler #3 } -body {
+} -returnCodes error -match glob -result {wrong # args to on clause: *}
+test error-13.7 {try with partial handler #3} -body {
# warning: error message may change
try list on error {em opts}
-} -returnCodes error -match glob -result {wrong # args: *}
+} -returnCodes error -match glob -result {wrong # args to on clause: *}
test error-13.8 {try with multiple handlers and finally (ok)} {
try list on error {} {} trap {} {} {} finally {}
} {}
test error-13.9 {last handler body can't be a fallthrough #1} -body {
try list on error {} {} on break {} -
-} -returnCodes error -match glob -result {wrong # args: *}
+} -returnCodes error -result {last non-finally clause must not have a body of "-"}
test error-13.10 {last handler body can't be a fallthrough #2} -body {
try list on error {} {} on break {} - finally { list d e f }
-} -returnCodes error -match glob -result {wrong # args: *}
+} -returnCodes error -result {last non-finally clause must not have a body of "-"}
# try tests - multiple handlers (left-to-right matching, only one runs)