From 7f00886c12a5e392b7868360d16f0dda7fd1c8c9 Mon Sep 17 00:00:00 2001
From: hershey <hershey>
Date: Tue, 8 Jun 1999 18:06:51 +0000
Subject: added code to unset the "data" array so tests that follow can use a
 scalar data var w/o having to unset it first.

---
 tests/http.test    | 7 ++++---
 tests/httpold.test | 9 ++++++---
 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
-- 
cgit v0.12