diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2002-04-15 17:45:06 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2002-04-15 17:45:06 (GMT) |
| commit | ce77e262200ad395011337df26e7e52292d83c17 (patch) | |
| tree | a2089c7e0c492fc71493d5dc30e2c0ebca6af8c6 /tests | |
| parent | c57b1b3f7c6afcd33faa0e7f8451d07435660464 (diff) | |
| download | tcl-ce77e262200ad395011337df26e7e52292d83c17.zip tcl-ce77e262200ad395011337df26e7e52292d83c17.tar.gz tcl-ce77e262200ad395011337df26e7e52292d83c17.tar.bz2 | |
Improved stack trace for TCL_BREAK and TCL_CONTINUE returns from procs. [Bug 536955].
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/proc-old.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/proc-old.test b/tests/proc-old.test index e4dae6a..44b55a4 100644 --- a/tests/proc-old.test +++ b/tests/proc-old.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: proc-old.test,v 1.8 2001/07/31 19:12:07 vincentdarley Exp $ +# RCS: @(#) $Id: proc-old.test,v 1.9 2002/04/15 17:45:06 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -332,7 +332,8 @@ test proc-old-5.14 {error conditions} { catch tproc msg set errorInfo } {invoked "break" outside of a loop - while executing + (procedure "tproc" line 1) + invoked from within "tproc"} test proc-old-5.15 {error conditions} { proc tproc {} { @@ -343,7 +344,8 @@ test proc-old-5.15 {error conditions} { catch tproc msg set errorInfo } {invoked "continue" outside of a loop - while executing + (procedure "tproc" line 1) + invoked from within "tproc"} test proc-old-5.16 {error conditions} { proc foo args { |