summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-08-29 17:43:24 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-08-29 17:43:24 (GMT)
commit4d937a98950f548bd24d312258fd069a0c063041 (patch)
tree741057c3b5bda83a236207ecf3a28ff0fe54f15a /tests
parentf13a99eb97ccd3791f0896870344e33eacf3e28c (diff)
downloadtcl-4d937a98950f548bd24d312258fd069a0c063041.zip
tcl-4d937a98950f548bd24d312258fd069a0c063041.tar.gz
tcl-4d937a98950f548bd24d312258fd069a0c063041.tar.bz2
* generic/tclCmdAH.c: Corrected bug in TIP 90 implementation
* tests/cmdMZ.test: where the default -errorcode NONE value was not copied into the return options dictionary. This correction modified one test result.
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdMZ.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test
index bcaa690..4609365 100644
--- a/tests/cmdMZ.test
+++ b/tests/cmdMZ.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: cmdMZ.test,v 1.16 2003/06/25 23:02:11 dkf Exp $
+# RCS: @(#) $Id: cmdMZ.test,v 1.17 2003/08/29 17:43:24 dgp Exp $
if {[catch {package require tcltest 2.0.2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -137,7 +137,7 @@ test cmdMZ-return-2.9 {return option handling} -body {
} -returnCodes 10 -result {}
test cmdMZ-return-2.10 {return option handling} {
list [catch {return -level 0 -code error} -> foo] [dictSort $foo]
-} {1 {-code 1 -errorinfo {
+} {1 {-code 1 -errorcode NONE -errorinfo {
while executing
"return -level 0 -code error"} -errorline 1 -level 0}}
test cmdMZ-return-2.11 {return option handling} {