diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-10 16:43:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-10 16:43:01 (GMT) |
| commit | d69c39d52e07b61221f06c9403a06c6a79ac31f9 (patch) | |
| tree | a2f7c0d0d95b1a20e0c32dc3bff0a88ad2b56fd9 /tests | |
| parent | 7a53c36e3aa0311270181fed854e1c590656c2f3 (diff) | |
| download | tcl-d69c39d52e07b61221f06c9403a06c6a79ac31f9.zip tcl-d69c39d52e07b61221f06c9403a06c6a79ac31f9.tar.gz tcl-d69c39d52e07b61221f06c9403a06c6a79ac31f9.tar.bz2 | |
Next attempt. Appears to have uncovered a bug.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/info.test | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/info.test b/tests/info.test index a1d3b1a..ba31159 100644 --- a/tests/info.test +++ b/tests/info.test @@ -1977,6 +1977,20 @@ test info-33.4 {{*}, literal, simple, bytecompiled} -body { } -result {type source line 1968 file info.test cmd {info frame 0} proc ::foo::bar level 0} # ------------------------------------------------------------------------- +namespace eval foo {} +proc foo::bar {} { + dict for {a b} {c d} {*}{ + {set res [info frame 0]} + } + return $res +} +test info-33.5 {{*}, literal, simple, bytecompiled} -body { + reduce [foo::bar] +} -cleanup { + namespace delete foo +} -result {type source line 1983 file info.test cmd {info frame 0} proc ::foo::bar level 0} + +# ------------------------------------------------------------------------- unset -nocomplain res # cleanup |