summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhershey <hershey>1999-06-08 18:06:51 (GMT)
committerhershey <hershey>1999-06-08 18:06:51 (GMT)
commit7f00886c12a5e392b7868360d16f0dda7fd1c8c9 (patch)
treecf8058ad6da11e50238ce7c95a83eefdef94152b
parent0e53e351cd3c0bdf51b84e459262c47f913c9a97 (diff)
downloadtcl-7f00886c12a5e392b7868360d16f0dda7fd1c8c9.zip
tcl-7f00886c12a5e392b7868360d16f0dda7fd1c8c9.tar.gz
tcl-7f00886c12a5e392b7868360d16f0dda7fd1c8c9.tar.bz2
added code to unset the "data" array so tests that follow can use a scalar
data var w/o having to unset it first.
-rw-r--r--tests/http.test7
-rw-r--r--tests/httpold.test9
2 files changed, 10 insertions, 6 deletions
diff --git a/tests/http.test b/tests/http.test
index c6ead8a..41ffd0b 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.7 1999/05/18 22:59:17 hershey Exp $
+# RCS: @(#) $Id: http.test,v 1.8 1999/06/08 18:06:51 hershey Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -300,8 +300,9 @@ test http-6.1 {http::ProxyRequired} {
</body></html>"
# cleanup
-unset url
-unset port
+catch {unset url}
+catch {unset port}
+catch {unset data}
if {[info exists httpthread]} {
testthread send -async $httpthread {
testthread exit
diff --git a/tests/httpold.test b/tests/httpold.test
index 5d874f6..7264023 100644
--- a/tests/httpold.test
+++ b/tests/httpold.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: httpold.test,v 1.3 1999/04/16 00:47:28 stanton Exp $
+# RCS: @(#) $Id: httpold.test,v 1.4 1999/06/08 18:06:51 hershey Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -33,6 +33,8 @@ if {[catch {package require http 1.0}]} {
}
}
+catch {unset data}
+
############### The httpd_ procedures implement a stub http server. ########
proc httpd_init {{port 8015}} {
socket -server httpdAccept $port
@@ -422,8 +424,9 @@ test http-6.1 {httpProxyRequired} {
</body></html>"
# cleanup
-unset url
-unset port
+catch {unset url}
+catch {unset port}
+catch {unset data}
close $listen
::tcltest::cleanupTests
return