summaryrefslogtreecommitdiffstats
path: root/tests/info.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-07-10 16:27:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-07-10 16:27:09 (GMT)
commit7a53c36e3aa0311270181fed854e1c590656c2f3 (patch)
tree5f49a192af44a9205c248cd624f48015381d8bae /tests/info.test
parentee74db1cbf0cb0122fbab5591ad2361c0a1f3313 (diff)
downloadtcl-7a53c36e3aa0311270181fed854e1c590656c2f3.zip
tcl-7a53c36e3aa0311270181fed854e1c590656c2f3.tar.gz
tcl-7a53c36e3aa0311270181fed854e1c590656c2f3.tar.bz2
First additional test. Remove dup macros in tclEnsemble.c.
Diffstat (limited to 'tests/info.test')
-rw-r--r--tests/info.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/info.test b/tests/info.test
index ebc853a..a1d3b1a 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -1962,6 +1962,21 @@ test info-9.13 {info level option, value in global context} -body {
} -returnCodes error -result {bad level "2"}
# -------------------------------------------------------------------------
+namespace eval foo {}
+proc foo::bar {} {
+ catch {*}{
+ {info frame 0}
+ res
+ }
+ return $res
+}
+test info-33.4 {{*}, literal, simple, bytecompiled} -body {
+ reduce [foo::bar]
+} -cleanup {
+ namespace delete foo
+} -result {type source line 1968 file info.test cmd {info frame 0} proc ::foo::bar level 0}
+
+# -------------------------------------------------------------------------
unset -nocomplain res
# cleanup