Attachment "523470.diff" to
ticket [523470ffff]
added by
andreas_kupries
2002-04-02 01:54:54.
? S4-0-2
? library/struct1.0
? library/msgcat1.0
? library/dde1.0
? library/dde1.1
? library/opt0.1
? library/opt0.4
? library/reg1.0
? library/tcltest1.0
? library/http2.0
? library/http2.1
? library/http2.3
? macosx/Tcl.pbproj
Index: tests/socket.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/socket.test,v
retrieving revision 1.22
diff -u -r1.22 socket.test
--- tests/socket.test 27 Feb 2002 20:55:55 -0000 1.22
+++ tests/socket.test 1 Apr 2002 18:47:20 -0000
@@ -252,7 +252,7 @@
removeFile script
set f [open script w]
puts $f {
- set timer [after 2000 "set x timed_out"]
+ set timer [after 10000 "set x timed_out"]
set f [socket -server accept 0]
proc accept {file addr port} {
global x
@@ -390,7 +390,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 {file addr port} {
global x