* tests/http.test: Clear away the custom [bgerror] when done.

        * tests/io.test:        Take care to use namespace variables.

1 files changed, 3 insertions, 3 deletions

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} {