summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2002-04-15 17:45:06 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2002-04-15 17:45:06 (GMT)
commitce77e262200ad395011337df26e7e52292d83c17 (patch)
treea2089c7e0c492fc71493d5dc30e2c0ebca6af8c6 /tests
parentc57b1b3f7c6afcd33faa0e7f8451d07435660464 (diff)
downloadtcl-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.test8
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 {