From 0050ab2a3d71d659185c26e86eff2db392dddb3b Mon Sep 17 00:00:00 2001 From: Daniel Stenberg Date: Tue, 12 Apr 2005 07:18:48 +0000 Subject: [PATCH] support tests that requires 'OpenSSL' specificly --- tests/runtests.pl | 23 +++++++++++++++++++++-- 1 file changed, 21 insertions(+), 2 deletions(-) diff --git a/tests/runtests.pl b/tests/runtests.pl index cde28a2d8..4c71f1324 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -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/. @@ -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;