summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-05-25 18:06:24 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-05-25 18:06:24 (GMT)
commitf31f039f04c16af8a56d07f7a076b5ca1c67ecb0 (patch)
tree14b2ef45fa448d2e08b16d4d7cd8e14f34e89a40
parentf4ff4a223ba658dbf3fed7c42db2228b993699d1 (diff)
downloadtcl-f31f039f04c16af8a56d07f7a076b5ca1c67ecb0.zip
tcl-f31f039f04c16af8a56d07f7a076b5ca1c67ecb0.tar.gz
tcl-f31f039f04c16af8a56d07f7a076b5ca1c67ecb0.tar.bz2
* tests/http.test: Clear away the custom [bgerror] when done.
* tests/io.test: Take care to use namespace variables.
-rw-r--r--ChangeLog2
-rw-r--r--tests/http.test3
-rw-r--r--tests/io.test6
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} {