Attachment "socktest.patch" to
ticket [523470ffff]
added by
dgp
2002-02-27 23:56:33.
Index: tests/socket.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/socket.test,v
retrieving revision 1.21
diff -u -r1.21 socket.test
--- tests/socket.test 25 Jan 2002 23:06:58 -0000 1.21
+++ tests/socket.test 27 Feb 2002 16:54:55 -0000
@@ -433,7 +433,7 @@
removeFile script
set f [open script w]
puts $f {
- set timer [after 2000 "set x done"]
+ set timer [after 10000 "set x timeout"]
set f [socket -server accept 0]
proc accept {s a p} {
fileevent $s readable [list echo $s]
@@ -454,7 +454,7 @@
vwait x
after cancel $timer
close $f
- puts done
+ puts $x
}
close $f
set f [open "|[list $::tcltest::tcltest script]" r]