summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-07-10 16:43:01 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-07-10 16:43:01 (GMT)
commitacd32d6e7090b829a7d5e1aec2e6b09f987aaccc (patch)
treea2f7c0d0d95b1a20e0c32dc3bff0a88ad2b56fd9 /tests
parent55deb86ee331985bbfedb4d5211968c4dbe1decd (diff)
downloadtcl-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.test14
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