summaryrefslogtreecommitdiffstats
path: root/tests/execute.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/execute.test')
-rw-r--r--tests/execute.test11
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/execute.test b/tests/execute.test
index 80b65ab..66e96a9 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.14 2003/09/19 18:09:41 msofer Exp $
+# RCS: @(#) $Id: execute.test,v 1.15 2003/10/04 16:12:12 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -721,6 +721,15 @@ test execute-8.1 {Stack protection} {
catch {expr {1+9/0}}
} 1
+test execute-8.2 {Stack restoration} {
+ # Test for [Bug #816641], correct restoration
+ # of the stack top after the stack is grown
+ proc f {args} { f bee bop }
+ catch f msg
+ set msg
+ } {too many nested evaluations (infinite loop?)}
+
+
# cleanup
if {[info commands testobj] != {}} {
testobj freeallvars