support tests that requires 'OpenSSL' specificly

This commit is contained in:
Daniel Stenberg 2005-04-12 07:18:48 +00:00
parent 60e66c6cbf
commit 0050ab2a3d
1 changed files with 21 additions and 2 deletions

View File

@ -116,6 +116,8 @@ my $has_ipv6; # set if libcurl is built with IPv6 support
my $has_libz; # set if libcurl is built with libz support
my $has_getrlimit; # set if system has getrlimit()
my $has_ntlm; # set if libcurl is built with NTLM support
my $has_openssl; # set if libcurl is built with OpenSSL
my $has_gnutls; # set if libcurl is built with GnuTLS
my $skipped=0; # number of tests skipped; reported in main loop
my %skipped; # skipped{reason}=counter, reasons for skip
@ -774,8 +776,7 @@ sub checkcurl {
}
$pwd =~ s#\\#/#g;
}
elsif ($curl =~ /win32/)
{
elsif ($curl =~ /win32/) {
# Native Windows builds don't understand the
# output of cygwin's pwd. It will be
# something like /cygdrive/c/<some path>.
@ -789,6 +790,14 @@ sub checkcurl {
# through a shell.
chomp($pwd = `cygpath -m $pwd`);
}
elsif ($curl =~ /openssl/i) {
# OpenSSL in use
$has_openssl=1;
}
elsif ($curl =~ /gnutls/i) {
# GnuTLS in use
$has_gnutls=1;
}
}
elsif($_ =~ /^Protocols: (.*)/i) {
# these are the supported protocols, we don't use this knowledge
@ -943,6 +952,16 @@ sub singletest {
next;
}
}
elsif($f eq "OpenSSL") {
if($has_openssl) {
next;
}
}
elsif($f eq "GnuTLS") {
if($has_gnutls) {
next;
}
}
elsif($f eq "netrc_debug") {
if($curl_debug) {
next;