Modified the tests to use the package tcltest

1 files changed, 6 insertions, 4 deletions

diff --git a/tests/init.test b/tests/init.test
index 4172606..bd9b486 100644
--- a/tests/init.test
+++ b/tests/init.test
@@ -10,10 +10,11 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: init.test,v 1.3 1999/04/16 00:47:29 stanton Exp $
+# RCS: @(#) $Id: init.test,v 1.4 1999/06/26 03:54:15 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    source [file join [pwd] [file dirname [info script]] defs.tcl]
+    package require tcltest
+    namespace import ::tcltest::*
 }
 
 # Clear out any namespaces called test_ns_*
@@ -61,12 +62,13 @@ test init-1.8 {auto_qualify - multiple colons 2} {
 
 set testInterp [interp create]
 interp eval $testInterp [list set argv $argv]
-interp eval $testInterp [list source [file join $::tcltest::testsDir defs.tcl]]
+interp eval $testInterp [list package require tcltest]
+interp eval $testInterp [list namespace import ::tcltest::*]
 
 interp eval $testInterp {
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    source [file join [pwd] [file dirname [info script]] defs.tcl]
+    package require tcltest
 }
 
 auto_reset