diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-04-12 19:44:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-04-12 19:44:34 (GMT) |
| commit | 6ae823b6b7894f244a874659bfd93fb4914c6a3a (patch) | |
| tree | bb59dd0853a15bd8f1fbdb66bb75064f30fd94e0 /tests/socket.test | |
| parent | 325bbf57920315a1457d500d5fec8867c0e0744b (diff) | |
| parent | 71ae5810dc6d2d626841ee68af71d69df5fd7bd3 (diff) | |
| download | tcl-6ae823b6b7894f244a874659bfd93fb4914c6a3a.zip tcl-6ae823b6b7894f244a874659bfd93fb4914c6a3a.tar.gz tcl-6ae823b6b7894f244a874659bfd93fb4914c6a3a.tar.bz2 | |
merge 8.7
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 1d202f3..b91668e 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -129,9 +129,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 @@ -672,7 +672,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] |