diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2003-10-04 16:12:11 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2003-10-04 16:12:11 (GMT) |
| commit | ee5f778e978b2eeb66266b4314b0952b7a3bbbff (patch) | |
| tree | 8d29922bc42260c91eec95bb90de8aa988b71fa8 /tests | |
| parent | 5a7659af1087fa2c7e87967ad997b2364e8f1295 (diff) | |
| download | tcl-ee5f778e978b2eeb66266b4314b0952b7a3bbbff.zip tcl-ee5f778e978b2eeb66266b4314b0952b7a3bbbff.tar.gz tcl-ee5f778e978b2eeb66266b4314b0952b7a3bbbff.tar.bz2 | |
fix for [Bug 816641] - faulty execution and catch stack management.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/execute.test | 11 |
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 |