summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-09-07 19:59:59 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-09-07 19:59:59 (GMT)
commit71c8cdedc9efe9c3ee31c2592cbd4cc63c6472b0 (patch)
treecd320b20caf1467eaa8cb3540007f6fc7de98dbf /tests
parent34a2da49423f4a5836b9b4c6acd2f4f2b11f02ae (diff)
downloadtcl-71c8cdedc9efe9c3ee31c2592cbd4cc63c6472b0.zip
tcl-71c8cdedc9efe9c3ee31c2592cbd4cc63c6472b0.tar.gz
tcl-71c8cdedc9efe9c3ee31c2592cbd4cc63c6472b0.tar.bz2
* generic/tclParse.c Corrected line counting error in multi-command
* tests/into.test: script substitutions. [Bug 2850901].
Diffstat (limited to 'tests')
-rw-r--r--tests/info.test7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/info.test b/tests/info.test
index e538a23..24c966a 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: info.test,v 1.66 2009/09/04 17:33:12 dgp Exp $
+# RCS: @(#) $Id: info.test,v 1.67 2009/09/07 19:59:59 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -1823,6 +1823,11 @@ test info-30.47 {TIP 280 for compiled [subst]} {
[dict get [info frame 0] line])} ; # 1823
} YES
+test info-30.48 {Bug 2850901} testevalex {
+ testevalex {return -level 0 [format %s {}
+][reduce [info frame 0]]} ; # line 2 of the eval
+} {type eval line 2 cmd {info frame 0} proc ::tcltest::RunTest}
+
# -------------------------------------------------------------------------
# cleanup