diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2006-07-21 10:47:18 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2006-07-21 10:47:18 (GMT) |
| commit | 7aa734510a8d4513721e66fa08ec27b72726d1a6 (patch) | |
| tree | ebfd27f59af5c53eade7e31ae6b0414b8e9661e6 /tests/execute.test | |
| parent | af031c0a09d0d4abeb4bf13bd542663126fb2245 (diff) | |
| download | tcl-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/execute.test')
| -rw-r--r-- | tests/execute.test | 16 |
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 |