diff options
Diffstat (limited to 'tests')
| -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} { |