diff options
Diffstat (limited to 'itcl/itcl/tests/mkindex.test')
| -rw-r--r-- | itcl/itcl/tests/mkindex.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/itcl/itcl/tests/mkindex.test b/itcl/itcl/tests/mkindex.test index 47a98b41269..bc20a242dbb 100644 --- a/itcl/itcl/tests/mkindex.test +++ b/itcl/itcl/tests/mkindex.test @@ -13,8 +13,13 @@ # See the file "license.terms" for information on usage and # redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. +package require tcltest +namespace import -force ::tcltest::* + if {[string compare test [info procs test]] == 1} then {source defs} +package require Itcl + # ---------------------------------------------------------------------- # Test "auto_mkindex" in the presence of class definitions # ---------------------------------------------------------------------- @@ -42,3 +47,6 @@ test mkindex-1.3 {examine tclIndex} { set result } } "{::Simple2::bump $element} {::Simple2::by $element} {::buried::deep::within $element} {::buried::ens $element} {::buried::inside $element} {::buried::inside::bump $element} {::buried::inside::by $element} {::buried::inside::find $element} {::buried::under::neath $element} {::top::find $element} {::top::notice $element} {OldStyle $element} {Simple1 $element} {Simple2 $element} {ens $element} {top $element}" + +::tcltest::cleanupTests +return |