summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-10-26 16:46:12 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-10-26 16:46:12 (GMT)
commit1dbc1efa665ec11cded1d378486be7187e155b44 (patch)
tree7eaf90ced9ef66c730fe3f6e2ad80639d98e6a2d /tests
parent22f4aa867d7112c53b76fb98ac9bdd4b7970ed9f (diff)
downloadtcl-1dbc1efa665ec11cded1d378486be7187e155b44.zip
tcl-1dbc1efa665ec11cded1d378486be7187e155b44.tar.gz
tcl-1dbc1efa665ec11cded1d378486be7187e155b44.tar.bz2
* 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.
Diffstat (limited to 'tests')
-rw-r--r--tests/basic.test6
-rw-r--r--tests/compile.test4
-rw-r--r--tests/fileSystem.test2
-rw-r--r--tests/init.test21
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} {