summaryrefslogtreecommitdiffstats
path: root/tests/io.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/io.test')
-rw-r--r--tests/io.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/io.test b/tests/io.test
index 583e333..51dc6ae 100644
--- a/tests/io.test
+++ b/tests/io.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: io.test,v 1.5 1998/10/30 00:38:39 welch Exp $
+# RCS: @(#) $Id: io.test,v 1.6 1998/11/02 23:04:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
@@ -5151,8 +5151,8 @@ test io-34.2 {buffered data and file events, read} {
proc accept {sock args} {
set ::s2 $sock
}
- set server [socket -server accept 4040]
- set s [socket localhost 4040]
+ set server [socket -server accept 4041]
+ set s [socket localhost 4041]
vwait s2
update
fileevent $s2 readable {lappend result readable}
@@ -5187,7 +5187,7 @@ test io-35.1 {Tcl_NotifyChannel and error when closing} {unixOrPc} {
}
}
close $out
- set pipe [open "|$tcltest script" r]
+ set pipe [open "|[list $tcltest] script" r]
fileevent $pipe readable [list readit $pipe]
set x ""
set result ""