summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-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