* Added more TIP 85 tests from Arjen Markus.

        Converted tcltest.test to use a private namespace.  Fixed bugs in
        [tcltest::Eval] revealed by calling [tcltest::test] from a non-global
        namespace, and namespace errors in init.test.

1 files changed, 4 insertions, 4 deletions

diff --git a/tests/init.test b/tests/init.test
index c31412b..6881c93 100644
--- a/tests/init.test
+++ b/tests/init.test
@@ -10,7 +10,7 @@
 # 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.8 2001/04/06 17:57:32 dgp Exp $
+# RCS: @(#) $Id: init.test,v 1.9 2002/06/05 01:12:38 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -75,14 +75,14 @@ auto_reset
 catch {rename parray {}}
 
 test init-2.0 {load parray - stage 1} {
-    set ret [catch {namespace eval ::tcltest {parray}} error]
+    set ret [catch {parray} error]
     rename parray {} ; # remove it, for the next test - that should not fail.
     list $ret $error
 } {1 {wrong # args: should be "parray a ?pattern?"}}
 
 
 test init-2.1 {load parray - stage 2} {
-    set ret [catch {namespace eval ::tcltest {parray}} error]
+    set ret [catch {parray} error]
     list $ret $error
 } {1 {wrong # args: should be "parray a ?pattern?"}}
 
@@ -135,7 +135,7 @@ catch {rename ::http::geturl {}}
 
 test init-2.8 {load http::geturl (package)} {
     # 3 ':' on purpose
-    set ret [catch {namespace eval ::tcltest {http:::geturl}} error]
+    set ret [catch {http:::geturl} error]
     # removing it, for the next test. should not fail.
     rename ::http::geturl {} ; 
     list $ret $error