diff options
Diffstat (limited to 'tests/cmdInfo.test')
| -rw-r--r-- | tests/cmdInfo.test | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/cmdInfo.test b/tests/cmdInfo.test index 112318f..010d3d1 100644 --- a/tests/cmdInfo.test +++ b/tests/cmdInfo.test @@ -12,9 +12,13 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# RCS: @(#) $Id: cmdInfo.test,v 1.10 2006/11/03 00:34:52 hobbs Exp $ -package require tcltest 2 -namespace import ::tcltest::* +if {[lsearch [namespace children] ::tcltest] == -1} { + package require tcltest 2 + namespace import -force ::tcltest::* +} testConstraint testcmdinfo [llength [info commands testcmdinfo]] testConstraint testcmdtoken [llength [info commands testcmdtoken]] @@ -96,7 +100,7 @@ test cmdinfo-6.1 {Names for commands created when outside namespaces} \ # cleanup catch {namespace delete cmdInfoNs1::cmdInfoNs2 cmdInfoNs1} catch {rename x1 ""} -cleanupTests +::tcltest::cleanupTests return # Local Variables: |