diff options
| author | stanton <stanton> | 1999-05-06 18:45:41 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-05-06 18:45:41 (GMT) |
| commit | 790b81e6f748b60c1d89b7741a5ce2888d1ecc0b (patch) | |
| tree | afc96213c4a0016af6503558612a5bdde859bd17 /tests/http.test | |
| parent | e87fc48c3d08b0973fd342dedfaa528261775909 (diff) | |
| download | tcl-790b81e6f748b60c1d89b7741a5ce2888d1ecc0b.zip tcl-790b81e6f748b60c1d89b7741a5ce2888d1ecc0b.tar.gz tcl-790b81e6f748b60c1d89b7741a5ce2888d1ecc0b.tar.bz2 | |
* tests/http.test: Unset "data" array before running tests to
avoid failures due to previous tests.
Diffstat (limited to 'tests/http.test')
| -rw-r--r-- | tests/http.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/http.test b/tests/http.test index 099b962..f5ab77f 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.5 1999/04/24 01:46:53 stanton Exp $ +# RCS: @(#) $Id: http.test,v 1.6 1999/05/06 18:45:41 stanton Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -35,6 +35,7 @@ if {[catch {package require http 2.0}]} { set port 8010 set bindata "This is binary data\x0d\x0amore\x0dmore\x0amore\x00null" +catch {unset data} # Ensure httpd file exists |