diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-04-05 16:46:14 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-04-05 16:46:14 (GMT) |
commit | b1266f39d8026e65d0947374c988acb459f93c0a (patch) | |
tree | 46a08498dd736f034192f04e373558c0b20f1001 /tests/socket.test | |
parent | 9d183921c98e6c400a421618f9e077069380ba34 (diff) | |
download | tcl-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.test | 6 |
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] |