cleaned up test suite so most of the tests pass on Windows

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 ""