summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDan Fandrich <dan@coneharvesters.com>2007-10-26 19:26:04 +0000
committerDan Fandrich <dan@coneharvesters.com>2007-10-26 19:26:04 +0000
commit3f55ed0ef7e4b277184293e5365719b7ae00c1b2 (patch)
tree5de733895e9de03e039f20aacf532a61d89ebcee
parentf9cfef3599cbffa72d2002c7add3278716537a48 (diff)
downloadgnurl-3f55ed0ef7e4b277184293e5365719b7ae00c1b2.tar.gz
gnurl-3f55ed0ef7e4b277184293e5365719b7ae00c1b2.tar.bz2
gnurl-3f55ed0ef7e4b277184293e5365719b7ae00c1b2.zip
Check that all servers in the <server> section are supported, not just
the first.
-rwxr-xr-xtests/runtests.pl14
1 files changed, 8 insertions, 6 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl
index 4e6e88387..1182c09d4 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -2376,12 +2376,14 @@ sub serverfortest {
return "no server specified";
}
- my $proto = lc($what[0]);
- chomp $proto;
- if (! grep /^$proto$/, @protocols) {
- if (substr($proto,0,5) ne "socks") {
- return "curl lacks any $proto support";
- }
+ for (@what) {
+ my $proto = lc($_);
+ chomp $proto;
+ if (! grep /^$proto$/, @protocols) {
+ if (substr($proto,0,5) ne "socks") {
+ return "curl lacks any $proto support";
+ }
+ }
}
return &startservers(@what);