diff options
Diffstat (limited to 'tests/dcall.test')
| -rw-r--r-- | tests/dcall.test | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/tests/dcall.test b/tests/dcall.test index 55f6731..41dd777 100644 --- a/tests/dcall.test +++ b/tests/dcall.test @@ -10,13 +10,12 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: dcall.test,v 1.6 2004/05/19 10:54:20 dkf Exp $ -if {[lsearch [namespace children] ::tcltest] == -1} { - package require tcltest - namespace import -force ::tcltest::* -} +package require tcltest 2 +namespace import ::tcltest::* + +::tcltest::loadTestedCommands +catch [list package require -exact Tcltest [info patchlevel]] testConstraint testdcall [llength [info commands testdcall]] @@ -40,5 +39,5 @@ test dcall-1.6 {deletion callbacks} testdcall { } {} # cleanup -::tcltest::cleanupTests +cleanupTests return |