summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-07-12 16:25:51 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-07-12 16:25:51 (GMT)
commit979b26b406c0679a35edba070797e94d3ecb656a (patch)
tree1a45bbef858544c664350bbdb59e0d9e9b061f6e
parent906e3c456afb4ee425936e01ffb768ae30271da4 (diff)
downloadtcl-979b26b406c0679a35edba070797e94d3ecb656a.zip
tcl-979b26b406c0679a35edba070797e94d3ecb656a.tar.gz
tcl-979b26b406c0679a35edba070797e94d3ecb656a.tar.bz2
Tests demonstrating the need for the last two SetLineInformation() calls.
-rw-r--r--tests/info.test25
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/info.test b/tests/info.test
index afdaaee..3057dd2 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -2371,6 +2371,31 @@ test info-33.33 {{*}, literal, simple, bytecompiled} -body {
} -result {type source line 2365 file info.test cmd {info frame 0} proc ::foo::bar level 0}
# -------------------------------------------------------------------------
+namespace eval foo {}
+proc foo::bar {} {
+ append x {*}{
+ } [return [info frame 0]]
+}
+test info-33.34 {{*}, literal, simple, bytecompiled} -body {
+ reduce [foo::bar]
+} -cleanup {
+ namespace delete foo
+} -result {type source line 2377 file info.test cmd {info frame 0} proc ::foo::bar level 0}
+
+# -------------------------------------------------------------------------
+namespace eval foo {}
+proc foo::bar {} {
+ append {*}{
+ } x([return [info frame 0]]) {*}{
+ } a
+}
+test info-33.35 {{*}, literal, simple, bytecompiled} -body {
+ reduce [foo::bar]
+} -cleanup {
+ namespace delete foo
+} -result {type source line 2389 file info.test cmd {info frame 0} proc ::foo::bar level 0}
+
+# -------------------------------------------------------------------------
unset -nocomplain res
# cleanup