summaryrefslogtreecommitdiffstats
path: root/tests/socket.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2019-04-05 16:46:14 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2019-04-05 16:46:14 (GMT)
commitb1266f39d8026e65d0947374c988acb459f93c0a (patch)
tree46a08498dd736f034192f04e373558c0b20f1001 /tests/socket.test
parent9d183921c98e6c400a421618f9e077069380ba34 (diff)
downloadtcl-b1266f39d8026e65d0947374c988acb459f93c0a.zip
tcl-b1266f39d8026e65d0947374c988acb459f93c0a.tar.gz
tcl-b1266f39d8026e65d0947374c988acb459f93c0a.tar.bz2
Relax timing for some socket tests a little bit. Hopefully this fixes the spurious hangs on Travis builds there.
Diffstat (limited to 'tests/socket.test')
-rw-r--r--tests/socket.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/socket.test b/tests/socket.test
index dc3c04a..6579277 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -116,9 +116,9 @@ catch {socket 127.0.0.1 [randport]}
set t2 [clock milliseconds]
set lat2 [expr {($t2-$t1)*3}]
-# Use the maximum of the two latency calculations, but at least 100ms
+# Use the maximum of the two latency calculations, but at least 200ms
set latency [expr {$lat1 > $lat2 ? $lat1 : $lat2}]
-set latency [expr {$latency > 100 ? $latency : 1000}]
+set latency [expr {$latency > 200 ? $latency : 200}]
unset t1 t2 s1 s2 lat1 lat2 server
# If remoteServerIP or remoteServerPort are not set, check in the environment
@@ -644,7 +644,7 @@ test socket_$af-2.11 {detecting new data} -constraints [list socket supported_$a
vwait sock
puts $s2 one
flush $s2
- after idle {set x 1}
+ after $latency {set x 1}; # Spurious failures in Travis CI, if we do [after idle]
vwait x
fconfigure $sock -blocking 0
set result a:[gets $sock]