summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-03-23 12:58:38 (GMT)
committernijtmans <nijtmans>2010-03-23 12:58:38 (GMT)
commitddc540e0328b146dd871015f3c32296da797920a (patch)
treeaff7dbfe0bd97a4d49dca1356f58e5452e89f3a8 /tests
parent6838a5c3396760aa126ef99f25c1bb7b992700ba (diff)
downloadtcl-ddc540e0328b146dd871015f3c32296da797920a.zip
tcl-ddc540e0328b146dd871015f3c32296da797920a.tar.gz
tcl-ddc540e0328b146dd871015f3c32296da797920a.tar.bz2
Make error message in "try" implementation
exactly the same as the one in "return"
Diffstat (limited to 'tests')
-rw-r--r--tests/error.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/error.test b/tests/error.test
index 95cd4c2..9e192ef 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.27 2010/03/18 14:35:04 dkf Exp $
+# RCS: @(#) $Id: error.test,v 1.28 2010/03/23 12:58:39 nijtmans Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -883,10 +883,10 @@ rename addmsg {}
test error-20.1 {bad code name in on handler} -body {
try { list a b c } on foo {} {}
-} -returnCodes error -match glob -result {bad code *}
+} -returnCodes error -match glob -result {bad completion code *}
test error-20.2 {bad code value in on handler} -body {
try { list a b c } on 34985723094872345 {} {}
-} -returnCodes error -match glob -result {bad code *}
+} -returnCodes error -match glob -result {bad completion code *}
test error-21.1 {memory leaks in try: Bug 2910044} memory {
leaktest {