Attachment "523470.patch" to
ticket [523470ffff]
added by
dgp
2002-04-16 06:05:52.
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 15 Apr 2002 23:02:45 -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
@@ -290,7 +290,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
@@ -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
@@ -1450,12 +1450,12 @@
removeFile script1
removeFile script2
- # Script1 is just a 10 second delay. If the server socket
+ # Script1 is just a 20 second delay. If the server socket
# is inherited, it will be held open for 10 seconds
set f [open script1 w]
puts $f {
- after 10000 exit
+ after 20000 exit
vwait forever
}
close $f
@@ -1512,11 +1512,11 @@
return
}
- # If the socket doesn't hit end-of-file in 5 seconds, the
+ # If the socket doesn't hit end-of-file in 10 seconds, the
# script1 process must have inherited the client.
set failed 0
- after 5000 [list set failed 1]
+ after 10000 [list set failed 1]
# Launch the script2 process
### exec $::tcltest::tcltest script2 &