diff options
author | dgp <dgp@users.sourceforge.net> | 2013-07-10 16:27:09 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-07-10 16:27:09 (GMT) |
commit | 55deb86ee331985bbfedb4d5211968c4dbe1decd (patch) | |
tree | 5f49a192af44a9205c248cd624f48015381d8bae /tests | |
parent | 79cd9409e13c0854f7eb3f04d970e44b30c3ec7d (diff) | |
download | tcl-55deb86ee331985bbfedb4d5211968c4dbe1decd.zip tcl-55deb86ee331985bbfedb4d5211968c4dbe1decd.tar.gz tcl-55deb86ee331985bbfedb4d5211968c4dbe1decd.tar.bz2 |
First additional test. Remove dup macros in tclEnsemble.c.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/info.test | 15 |
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 |