summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-08-05 15:52:23 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-08-05 15:52:23 (GMT)
commit163c13b1f004afa81c6aaa1fdc93a95ca319cebd (patch)
tree70101b968b358a74c761509a7ce3dbdca82d047a /tests
parent904ad53bcc04a8e011a2e168389dbe29cd52fbcb (diff)
downloadtcl-163c13b1f004afa81c6aaa1fdc93a95ca319cebd.zip
tcl-163c13b1f004afa81c6aaa1fdc93a95ca319cebd.tar.gz
tcl-163c13b1f004afa81c6aaa1fdc93a95ca319cebd.tar.bz2
* generic/tclExecute.c: Fix for [Bug 2038069] by dgp.
* tests/execute.test:
Diffstat (limited to 'tests')
-rw-r--r--tests/execute.test17
1 files changed, 16 insertions, 1 deletions
diff --git a/tests/execute.test b/tests/execute.test
index 6c34dc1..d9f02e0 100644
--- a/tests/execute.test
+++ b/tests/execute.test
@@ -14,7 +14,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: execute.test,v 1.28 2008/08/04 04:49:24 dgp Exp $
+# RCS: @(#) $Id: execute.test,v 1.29 2008/08/05 15:52:24 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -958,6 +958,21 @@ test execute-8.4 {Compile epoch bump effect on stack trace} -setup {
rename FOO {}
} -result {}
+test execute-8.5 {Bug 2038069} -setup {
+ proc demo {} {
+ catch [list error FOO] m o
+ return $o
+ }
+} -body {
+ demo
+} -cleanup {
+ rename demo {}
+} -result {-code 1 -level 0 -errorcode NONE -errorinfo {FOO
+ while executing
+"error FOO"
+ invoked from within
+"catch [list error FOO] m o"} -errorline 2}
+
test execute-9.1 {Interp result resetting [Bug 1522803]} {
set c 0
catch {