summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-07-11 03:48:40 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-07-11 03:48:40 (GMT)
commitf3a1a26516d79b15224325941f72deb7dfda25f6 (patch)
tree81df4267b7d4a79d9f79ca92e4680932ba229f25 /tests
parentfe3f5136f96353b1b0d77700e4c4ef6256eb1e55 (diff)
downloadtcl-f3a1a26516d79b15224325941f72deb7dfda25f6.zip
tcl-f3a1a26516d79b15224325941f72deb7dfda25f6.tar.gz
tcl-f3a1a26516d79b15224325941f72deb7dfda25f6.tar.bz2
Add tests for the SetLineInformation() calls in tclEnsemble.c, and fix
the bugs around those calls exposed by the tests.
Diffstat (limited to 'tests')
-rw-r--r--tests/info.test25
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/info.test b/tests/info.test
index a68fb43..afdaaee 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -2346,6 +2346,31 @@ test info-33.31 {{*}, literal, simple, bytecompiled} -body {
} -result {type source line 2339 file info.test cmd {info frame 0} proc ::foo::bar level 0}
# -------------------------------------------------------------------------
+namespace eval foo {}
+proc foo::bar {} {
+ binary format {*}{
+ } [return [info frame 0]]
+}
+test info-33.32 {{*}, literal, simple, bytecompiled} -body {
+ reduce [foo::bar]
+} -cleanup {
+ namespace delete foo
+} -result {type source line 2352 file info.test cmd {info frame 0} proc ::foo::bar level 0}
+
+# -------------------------------------------------------------------------
+namespace eval foo {}
+proc foo::bar {} {
+ set format format
+ binary $format {*}{
+ } [return [info frame 0]]
+}
+test info-33.33 {{*}, literal, simple, bytecompiled} -body {
+ reduce [foo::bar]
+} -cleanup {
+ namespace delete foo
+} -result {type source line 2365 file info.test cmd {info frame 0} proc ::foo::bar level 0}
+
+# -------------------------------------------------------------------------
unset -nocomplain res
# cleanup