From f31f039f04c16af8a56d07f7a076b5ca1c67ecb0 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 25 May 2004 18:06:24 +0000
Subject:         * tests/http.test:      Clear away the custom [bgerror] when
 done.         * tests/io.test:        Take care to use namespace variables.

---
 ChangeLog       | 2 ++
 tests/http.test | 3 ++-
 tests/io.test   | 6 +++---
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b708624..4834bc4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-05-25  Don Porter  <dgp@users.sourceforge.net>
 
+	* tests/http.test:	Clear away the custom [bgerror] when done.
+	* tests/io.test:	Take care to use namespace variables.
 	* tests/autoMkindex.test (autoMkindex-5.2): Use variable "result"
 	that gets cleaned up.
 	* tests/exec.test:	Clean up the "path" array.
diff --git a/tests/http.test b/tests/http.test
index 9b38bb2..1ed63f8 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.36 2003/11/14 20:44:46 dgp Exp $
+# RCS: @(#) $Id: http.test,v 1.37 2004/05/25 18:06:25 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -507,4 +507,5 @@ if {[info exists removeHttpd]} {
     removeFile $httpdFile
 }
 
+rename bgerror {}
 ::tcltest::cleanupTests
diff --git a/tests/io.test b/tests/io.test
index e3babf6..2f97129 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: io.test,v 1.51 2004/04/23 23:38:42 andreas_kupries Exp $
+# RCS: @(#) $Id: io.test,v 1.52 2004/05/25 18:06:26 dgp Exp $
 
 if {[catch {package require tcltest 2}]} {
     puts stderr "Skipping tests in [info script].  tcltest 2 required."
@@ -2675,7 +2675,7 @@ test io-29.33 {Tcl_Flush, implicit flush on exit} {exec} {
     set r
 } "hello\nbye\nstrange\n"
 test io-29.34 {Tcl_Close, async flush on close, using sockets} {socket tempNotMac fileevent} {
-    set c 0
+    variable c 0
     variable x running
     set l abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz
     proc writelots {s l} {
@@ -5766,7 +5766,7 @@ test io-48.4 {lf write, testing readability, ^Z termination, auto read mode} {fi
     file delete $path(test1)
     set f [open $path(test1) w]
     fconfigure $f -translation lf
-    set c [format "abc\ndef\n%c" 26]
+    variable c [format "abc\ndef\n%c" 26]
     puts -nonewline $f $c
     close $f
     proc consume {f} {
-- 
cgit v0.12