summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-06-24 15:17:40 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-06-24 15:17:40 (GMT)
commit113714d1cf9bf670cbb99691146b8c105374678b (patch)
tree9d28355fbb376fcf9ad510f3205b95d4e49374d0 /tests
parent4fd9789c692f218dc5b7b34eb3b4029674ffaa03 (diff)
downloadtcl-113714d1cf9bf670cbb99691146b8c105374678b.zip
tcl-113714d1cf9bf670cbb99691146b8c105374678b.tar.gz
tcl-113714d1cf9bf670cbb99691146b8c105374678b.tar.bz2
More test suite cleanup for "-singleproc 1 -debug 1" testing.
Diffstat (limited to 'tests')
-rw-r--r--tests/foreach.test3
-rw-r--r--tests/http.test10
-rw-r--r--tests/http11.test1
-rw-r--r--tests/oo.test3
-rw-r--r--tests/set-old.test3
-rw-r--r--tests/string.test3
-rw-r--r--tests/stringComp.test3
-rw-r--r--tests/switch.test3
-rw-r--r--tests/tailcall.test3
9 files changed, 22 insertions, 10 deletions
diff --git a/tests/foreach.test b/tests/foreach.test
index 07fbe22..4042b3c 100644
--- a/tests/foreach.test
+++ b/tests/foreach.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: foreach.test,v 1.14 2008/03/14 17:43:25 dgp Exp $
+# RCS: @(#) $Id: foreach.test,v 1.15 2009/06/24 15:17:40 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -271,5 +271,6 @@ test foreach-10.1 {foreach: [Bug 1671087]} -setup {
# cleanup
catch {unset a}
catch {unset x}
+catch {rename foo {}}
::tcltest::cleanupTests
return
diff --git a/tests/http.test b/tests/http.test
index 526dffa..2516a48 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -12,7 +12,7 @@
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
#
-# RCS: @(#) $Id: http.test,v 1.52 2009/06/24 13:51:36 dgp Exp $
+# RCS: @(#) $Id: http.test,v 1.53 2009/06/24 15:17:40 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -340,11 +340,15 @@ test http-3.25 {http::meta} -setup {
} -cleanup {
unset -nocomplain m token
} -result {Content-Length Content-Type Date}
-test http-3.26 {http::meta} {
+test http-3.26 {http::meta} -setup {
+ unset -nocomplain m token
+} -body {
set token [http::geturl $url -headers {X-Check 1} -timeout 2000]
array set m [http::meta $token]
lsort [array names m]
-} {Content-Length Content-Type Date X-Check}
+} -cleanup {
+ unset -nocomplain m token
+} -result {Content-Length Content-Type Date X-Check}
test http-4.1 {http::Event} {
set token [http::geturl $url -keepalive 0]
diff --git a/tests/http11.test b/tests/http11.test
index 7fe13fa..0ed60c9 100644
--- a/tests/http11.test
+++ b/tests/http11.test
@@ -650,6 +650,7 @@ test http11-4.3 "normal post request, check channel query length" -setup {
foreach p {create_httpd httpd_read halt_httpd meta check_crc} {
rename $p {}
}
+removeFile testdoc.html
unset -nocomplain httpd_port httpd p
::tcltest::cleanupTests
diff --git a/tests/oo.test b/tests/oo.test
index da295a6..7b28f00 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: oo.test,v 1.27 2009/05/15 10:08:02 dkf Exp $
+# RCS: @(#) $Id: oo.test,v 1.28 2009/06/24 15:17:40 dgp Exp $
package require TclOO 0.6.1 ;# Must match value in generic/tclOO.h
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -690,6 +690,7 @@ test oo-7.6 {OO: inheritance 101 - overridden methods should be oblivious} -setu
lappend result [Binstance incr x]
lappend result x=$x
} -result {x=10 x 1 returning:11 11 x=11} -cleanup {
+ unset -nocomplain x
Aclass destroy
}
test oo-7.7 {OO: inheritance and errorInfo} -setup {
diff --git a/tests/set-old.test b/tests/set-old.test
index 1a0d5e9..150d6f7 100644
--- a/tests/set-old.test
+++ b/tests/set-old.test
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: set-old.test,v 1.20 2008/07/19 22:50:39 nijtmans Exp $
+# RCS: @(#) $Id: set-old.test,v 1.21 2009/06/24 15:17:40 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -913,6 +913,7 @@ catch {unset a}
catch {unset b}
catch {unset c}
catch {unset aVaRnAmE}
+catch {rename foo {}}
# cleanup
::tcltest::cleanupTests
diff --git a/tests/string.test b/tests/string.test
index 536189f..3fc1153 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: string.test,v 1.76 2008/10/14 18:49:47 dgp Exp $
+# RCS: @(#) $Id: string.test,v 1.77 2009/06/24 15:17:41 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1868,6 +1868,7 @@ test string-28.13 {tcl::prefix longest} {
# cleanup
rename MemStress {}
+catch {rename foo {}}
::tcltest::cleanupTests
return
diff --git a/tests/stringComp.test b/tests/stringComp.test
index c4680fb..2f187be 100644
--- a/tests/stringComp.test
+++ b/tests/stringComp.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: stringComp.test,v 1.16 2008/07/19 22:50:38 nijtmans Exp $
+# RCS: @(#) $Id: stringComp.test,v 1.17 2009/06/24 15:17:41 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -714,5 +714,6 @@ test stringComp-11.54 {string match, failure} {
## not yet bc
# cleanup
+catch {rename foo {}}
::tcltest::cleanupTests
return
diff --git a/tests/switch.test b/tests/switch.test
index db346e9..2652a70 100644
--- a/tests/switch.test
+++ b/tests/switch.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: switch.test,v 1.23 2008/07/21 22:22:28 nijtmans Exp $
+# RCS: @(#) $Id: switch.test,v 1.24 2009/06/24 15:17:41 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -739,6 +739,7 @@ test switch-14.16 {switch -regexp compilation} {
} no
# cleanup
+catch {rename foo {}}
::tcltest::cleanupTests
return
diff --git a/tests/tailcall.test b/tests/tailcall.test
index 0d0bf65..8eea3e9 100644
--- a/tests/tailcall.test
+++ b/tests/tailcall.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: tailcall.test,v 1.7 2009/03/21 12:56:32 msofer Exp $
+# RCS: @(#) $Id: tailcall.test,v 1.8 2009/06/24 15:17:41 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -167,6 +167,7 @@ test tailcall-0.6 {tailcall is constant space} -constraints {testnrelevels known
} -result {0 0 0 0 0 0}
test tailcall-0.7 {tailcall is constant space} -constraints testnrelevels -setup {
+ catch {rename foo {}}
oo::class create foo {
method b i {
if {[incr i] > 10} {