* tests/basic.test: Added missing constraints.

        * tests/compile.test:
        * tests/fileSystem.test:

        * tests/init.test (init-2.8):   Updated to not rely on http package.

1 files changed, 10 insertions, 11 deletions

diff --git a/tests/init.test b/tests/init.test
index e8da0eb..7fc8baa 100644
--- a/tests/init.test
+++ b/tests/init.test
@@ -10,10 +10,10 @@
 # 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.12 2003/11/14 20:44:46 dgp Exp $
+# RCS: @(#) $Id: init.test,v 1.13 2004/10/26 16:46:16 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2
     namespace import -force ::tcltest::*
 }
 
@@ -125,17 +125,16 @@ test init-2.7 {oad setLogCmd from safe::  - stage 2} {
 } {}
 
 
-auto_reset
-package require http 2.0
-catch {rename ::http::geturl {}}
 
-test init-2.8 {load http::geturl (package)} {
+test init-2.8 {load tcl::HistAdd} -setup {
+    auto_reset
+    catch {rename ::tcl::HistAdd {}}
+} -body {
     # 3 ':' on purpose
-    set ret [catch {http:::geturl} error]
-    # removing it, for the next test. should not fail.
-    rename ::http::geturl {} ; 
-    list $ret $error
-} {1 {wrong # args: should be "http:::geturl url args"}}
+    list [catch {tcl:::HistAdd} error] $error
+} -cleanup {
+    rename ::tcl::HistAdd {} ; 
+} -result {1 {wrong # args: should be "tcl:::HistAdd command ?exec?"}}
 
 
 test init-3.0 {random stuff in the auto_index, should still work} {