* 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.


FossilOrigin-Name: b09796fafb1fc3009ab288db04b6bfeb3ba8786c

4 files changed, 16 insertions, 17 deletions

diff --git a/tests/basic.test b/tests/basic.test
index 9539b72..dcd3a8a 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -15,7 +15,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: basic.test,v 1.34 2004/09/29 22:37:13 dgp Exp $
+# RCS: @(#) $Id: basic.test,v 1.35 2004/10/26 16:46:15 dgp Exp $
 #
 
 package require tcltest 2
@@ -888,7 +888,7 @@ test basic-48.23.$noComp {expansion: handle return codes} -constraints $constrai
 
 } ;# End of noComp loop
 
-test basic-49.1 {Tcl_EvalEx: verify TCL_EVAL_GLOBAL operation} {
+test basic-49.1 {Tcl_EvalEx: verify TCL_EVAL_GLOBAL operation} testevalex {
     set ::x global
     namespace eval ns {
 	variable x namespace
@@ -898,7 +898,7 @@ test basic-49.1 {Tcl_EvalEx: verify TCL_EVAL_GLOBAL operation} {
     namespace delete ns
     set ::result
 } {changed namespace}
-test basic-49.2 {Tcl_EvalEx: verify TCL_EVAL_GLOBAL operation} {
+test basic-49.2 {Tcl_EvalEx: verify TCL_EVAL_GLOBAL operation} testevalex {
     set ::x global
     namespace eval ns {
 	variable x namespace
diff --git a/tests/compile.test b/tests/compile.test
index 6976b5b..ebb5f62 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: compile.test,v 1.32 2004/09/22 22:23:40 dgp Exp $
+# RCS: @(#) $Id: compile.test,v 1.33 2004/10/26 16:46:15 dgp Exp $
 
 package require tcltest 2
 namespace import -force ::tcltest::*
@@ -572,7 +572,7 @@ test compile-16.22.$noComp {
 
 test compile-16.23.$noComp {
     Bug 1032805: defer parse error until run time
-} -body {
+} -constraints $constraints -body {
     namespace eval x {
 	run {
 	    proc if {a b} {uplevel 1 [list set $a $b]}
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index a56e56d..8ece283 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -893,7 +893,7 @@ test filesystem-7.7 {cross-filesystem dir copy with -force} \
 
 removeFile gorp.file
 
-test filesystem-7.8 {vfs cd} {
+test filesystem-7.8 {vfs cd} testsimplefilesystem {
     set dir [pwd]
     cd [tcltest::temporaryDirectory]
     file delete -force simpledir
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} {