diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-09-07 19:59:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-09-07 19:59:59 (GMT) |
| commit | 71c8cdedc9efe9c3ee31c2592cbd4cc63c6472b0 (patch) | |
| tree | cd320b20caf1467eaa8cb3540007f6fc7de98dbf /tests/info.test | |
| parent | 34a2da49423f4a5836b9b4c6acd2f4f2b11f02ae (diff) | |
| download | tcl-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/info.test')
| -rw-r--r-- | tests/info.test | 7 |
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 |