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 | acd32d6e7090b829a7d5e1aec2e6b09f987aaccc (patch) | |
| tree | a2f7c0d0d95b1a20e0c32dc3bff0a88ad2b56fd9 /tests | |
| parent | 55deb86ee331985bbfedb4d5211968c4dbe1decd (diff) | |
| download | tcl-acd32d6e7090b829a7d5e1aec2e6b09f987aaccc.zip tcl-acd32d6e7090b829a7d5e1aec2e6b09f987aaccc.tar.gz tcl-acd32d6e7090b829a7d5e1aec2e6b09f987aaccc.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 |