diff options
author | msofer <msofer@noemail.net> | 2002-04-18 18:05:55 (GMT) |
---|---|---|
committer | msofer <msofer@noemail.net> | 2002-04-18 18:05:55 (GMT) |
commit | bcf966f6ebf28cfe25ecf4437aaf80f0afa2d10e (patch) | |
tree | 222b1707324d61bf720ccf270f662e884b530012 /tests/info.test | |
parent | 8d30f3afa7ad1a046a44024ce90fbb1b88c56e48 (diff) | |
download | tcl-bcf966f6ebf28cfe25ecf4437aaf80f0afa2d10e.zip tcl-bcf966f6ebf28cfe25ecf4437aaf80f0afa2d10e.tar.gz tcl-bcf966f6ebf28cfe25ecf4437aaf80f0afa2d10e.tar.bz2 |
[Bug 545325 ] info level didn't report namespace eval.
FossilOrigin-Name: 03de79e1ef0a213b7340c2016b8025e070def420
Diffstat (limited to 'tests/info.test')
-rw-r--r-- | tests/info.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/info.test b/tests/info.test index 0e209fc..801df6f 100644 --- a/tests/info.test +++ b/tests/info.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: info.test,v 1.19 2002/04/18 14:12:07 dkf Exp $ +# RCS: @(#) $Id: info.test,v 1.20 2002/04/18 18:05:59 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -338,6 +338,11 @@ test info-9.9 {info level option} { proc t1 {x} {info level $x} list [catch {t1 -3} msg] $msg } {1 {bad level "-3"}} +test info-9.10 {info level option, namespaces} { + set msg [namespace eval t {info level 0}] + namespace delete t + set msg +} {namespace eval t {info level 0}} set savedLibrary $tcl_library test info-10.1 {info library option} { |