diff options
author | Daniel Stenberg <daniel@haxx.se> | 2006-05-10 21:38:46 +0000 |
---|---|---|
committer | Daniel Stenberg <daniel@haxx.se> | 2006-05-10 21:38:46 +0000 |
commit | 975534370f111f341e7fb659e1df41f41247cde1 (patch) | |
tree | 83589e3d45163ed5683f968e4eecb6037563237d | |
parent | 28605f6bd3aeab475ea079f1c6866e436377465c (diff) |
My Solaris test server was simply too slow to be able to respond within 4
seconds even when everything is fine! Now we allow a test server 8 seconds
to respond to still be considered ok.
-rwxr-xr-x | tests/runtests.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index 49c7e9187..388113b06 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -82,6 +82,7 @@ my $TFTP6PIDFILE=".tftp6.pid"; # invoke perl like this: my $perl="perl -I$srcdir"; +my $server_response_maxtime=8; # this gets set if curl is compiled with debugging: my $curl_debug=0; @@ -415,7 +416,7 @@ sub stopserver { sub verifyhttp { my ($proto, $ip, $port) = @_; - my $cmd = "$CURL -m4 -o log/verifiedserver -ksvg \"$proto://$ip:$port/verifiedserver\" 2>log/verifyhttp"; + my $cmd = "$CURL -m$server_response_maxtime -o log/verifiedserver -ksvg \"$proto://$ip:$port/verifiedserver\" 2>log/verifyhttp"; my $pid; # verify if our/any server is running on this port @@ -466,7 +467,7 @@ sub verifyftp { my ($proto, $ip, $port) = @_; my $pid; my $time=time(); - my $cmd="$CURL -m4 --silent -vg \"$proto://$ip:$port/verifiedserver\" 2>log/verifyftp"; + my $cmd="$CURL -m$server_response_maxtime --silent -vg \"$proto://$ip:$port/verifiedserver\" 2>log/verifyftp"; # check if this is our server running on this port: my @data=`$cmd`; logmsg "RUN: $cmd\n" if($verbose); |