diff options
| author | dgp <dgp@noemail.net> | 2013-07-10 16:43:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2013-07-10 16:43:01 (GMT) |
| commit | 665c86f84cea24351349abbe64b4ce485b10876f (patch) | |
| tree | e54c8ee4ddc1bd1a4baff43872feccfe7dd4b567 /tests/info.test | |
| parent | e44abb4ac5b4fbbd5329483958d4737914aa8c3d (diff) | |
| download | tcl-665c86f84cea24351349abbe64b4ce485b10876f.zip tcl-665c86f84cea24351349abbe64b4ce485b10876f.tar.gz tcl-665c86f84cea24351349abbe64b4ce485b10876f.tar.bz2 | |
Next attempt. Appears to have uncovered a bug.
FossilOrigin-Name: 815313114f196b7cd646acd17ec4d197e66204fd
Diffstat (limited to 'tests/info.test')
| -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 |