diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2002-04-18 18:05:55 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2002-04-18 18:05:55 (GMT) |
| commit | 21901763f1b2265d4cd44100b084ab75ccf8d342 (patch) | |
| tree | 222b1707324d61bf720ccf270f662e884b530012 /tests/info.test | |
| parent | 10b86ab7e14292e258f72765e28b0d9a3d55f00c (diff) | |
| download | tcl-21901763f1b2265d4cd44100b084ab75ccf8d342.zip tcl-21901763f1b2265d4cd44100b084ab75ccf8d342.tar.gz tcl-21901763f1b2265d4cd44100b084ab75ccf8d342.tar.bz2 | |
[Bug 545325 ] info level didn't report namespace eval.
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} { |