diff options
Diffstat (limited to 'tests/namespace.test')
| -rw-r--r-- | tests/namespace.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/namespace.test b/tests/namespace.test index c198a48..83cad11 100644 --- a/tests/namespace.test +++ b/tests/namespace.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: namespace.test,v 1.50 2006/01/09 18:35:01 dgp Exp $ +# RCS: @(#) $Id: namespace.test,v 1.51 2006/01/18 19:48:11 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -2353,6 +2353,9 @@ test namespace-51.13 {name resolution path control} -body { catch {namespace delete ::test_ns_4} } test namespace-51.14 {name resolution path control} -body { + foreach cmd [info commands foo*] { + rename $cmd {} + } proc foo0 {} {} namespace eval ::test_ns_1 { proc foo1 {} {} |