diff options
| -rw-r--r-- | ChangeLog | 8 | ||||
| -rw-r--r-- | tests/basic.test | 6 | ||||
| -rw-r--r-- | tests/compile.test | 4 | ||||
| -rw-r--r-- | tests/fileSystem.test | 2 | ||||
| -rw-r--r-- | tests/init.test | 21 |
5 files changed, 24 insertions, 17 deletions
@@ -1,3 +1,11 @@ +2004-10-26 Don Porter <dgp@users.sourceforge.net> + + * 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. + 2004-10-26 Miguel Sofer <msofer@users.sf.net> * generic/tclInt.h: 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} { |