added code to unset the "data" array so tests that follow can use a scalar

data var w/o having to unset it first.

1 files changed, 6 insertions, 3 deletions

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