summaryrefslogtreecommitdiff
path: root/tests/runtests.pl
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2006-05-10 21:38:46 +0000
committerDaniel Stenberg <daniel@haxx.se>2006-05-10 21:38:46 +0000
commit975534370f111f341e7fb659e1df41f41247cde1 (patch)
tree83589e3d45163ed5683f968e4eecb6037563237d /tests/runtests.pl
parent28605f6bd3aeab475ea079f1c6866e436377465c (diff)
downloadcurl-975534370f111f341e7fb659e1df41f41247cde1.tar.gz
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.
Diffstat (limited to 'tests/runtests.pl')
-rwxr-xr-xtests/runtests.pl5
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);