summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2006-07-21 10:47:18 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2006-07-21 10:47:18 (GMT)
commit7aa734510a8d4513721e66fa08ec27b72726d1a6 (patch)
treeebfd27f59af5c53eade7e31ae6b0414b8e9661e6 /tests
parentaf031c0a09d0d4abeb4bf13bd542663126fb2245 (diff)
downloadtcl-7aa734510a8d4513721e66fa08ec27b72726d1a6.zip
tcl-7aa734510a8d4513721e66fa08ec27b72726d1a6.tar.gz
tcl-7aa734510a8d4513721e66fa08ec27b72726d1a6.tar.bz2
* generic/tclExecute.c:
* tests/execute.test (execute-9.1): dgp's fix for [Bug 1522803].
Diffstat (limited to 'tests')
-rw-r--r--tests/execute.test16
1 files changed, 15 insertions, 1 deletions
diff --git a/tests/execute.test b/tests/execute.test
index 1b3d75f..0175706 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.22 2006/03/21 11:12:29 dkf Exp $
+# RCS: @(#) $Id: execute.test,v 1.23 2006/07/21 10:47:19 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -760,6 +760,20 @@ test execute-8.3 {Stack restoration} -body {
interp recursionlimit {} $limit
} -result {too many nested evaluations (infinite loop?)}
+test execute-9.1 {Interp result resetting [Bug 1522803]} {
+ set c 0
+ catch {
+ catch {set foo}
+ expr {1/$c}
+ }
+ if {[string match *foo* $::errorInfo]} {
+ set result "Bad errorInfo: $::errorInfo"
+ } else {
+ set result SUCCESS
+ }
+ set result
+} SUCCESS
+
# cleanup
if {[info commands testobj] != {}} {
testobj freeallvars