1
0
mirror of https://github.com/moparisthebest/curl synced 2025-03-11 07:39:50 -04:00

doesn't run ssl tests if libcurl wasn't built with ssl support (and reports

about the libcurl SSL status)
This commit is contained in:
Daniel Stenberg 2001-05-21 13:38:38 +00:00
parent 1b9e26a287
commit a8bc40fe4e

View File

@ -52,6 +52,8 @@ my $memanalyze="../memanalyze.pl";
my $checkstunnel = &checkstunnel; my $checkstunnel = &checkstunnel;
my $ssl_version; # set if libcurl is built with SSL support
####################################################################### #######################################################################
# variables the command line options may set # variables the command line options may set
# #
@ -253,7 +255,6 @@ sub runftpsserver {
my $flag=$debugprotocol?"-v ":""; my $flag=$debugprotocol?"-v ":"";
my $cmd="perl $srcdir/ftpsserver.pl $flag -r $FTPPORT $FTPSPORT &"; my $cmd="perl $srcdir/ftpsserver.pl $flag -r $FTPPORT $FTPSPORT &";
print "CMD: $cmd\n";
system($cmd); system($cmd);
if($verbose) { if($verbose) {
print "ftpd stunnel started\n"; print "ftpd stunnel started\n";
@ -401,6 +402,10 @@ sub displaydata {
"* Host: $hostname", "* Host: $hostname",
"* System: $hosttype"; "* System: $hosttype";
if($libcurl =~ /SSL/i) {
$ssl_version=1;
}
if( -r $memdump) { if( -r $memdump) {
# if this exists, curl was compiled with memory debugging # if this exists, curl was compiled with memory debugging
# enabled and we shall verify that no memory leaks exist # enabled and we shall verify that no memory leaks exist
@ -410,6 +415,7 @@ sub displaydata {
printf("* Memory debugging: %s\n", $memory_debug?"ON":"OFF"); printf("* Memory debugging: %s\n", $memory_debug?"ON":"OFF");
printf("* HTTPS server: %s\n", $checkstunnel?"ON":"OFF"); printf("* HTTPS server: %s\n", $checkstunnel?"ON":"OFF");
printf("* FTPS server: %s\n", $checkstunnel?"ON":"OFF"); printf("* FTPS server: %s\n", $checkstunnel?"ON":"OFF");
printf("* libcurl SSL: %s\n", $ssl_version?"ON":"OFF");
print "***************************************** \n"; print "***************************************** \n";
} }
@ -690,8 +696,9 @@ sub serverfortest {
elsif($testnum< 400) { elsif($testnum< 400) {
# 300 - 399 is for HTTPS, two servers! # 300 - 399 is for HTTPS, two servers!
if(!$checkstunnel) { if(!$checkstunnel || !$ssl_version) {
# we can't run https tests without stunnel # we can't run https tests without stunnel
# or if libcurl is SSL-less
return 1; return 1;
} }
@ -707,8 +714,9 @@ sub serverfortest {
elsif($testnum< 500) { elsif($testnum< 500) {
# 400 - 499 is for FTPS, also two servers # 400 - 499 is for FTPS, also two servers
if(!$checkstunnel) { if(!$checkstunnel || !$ssl_version) {
# we can't run https tests without stunnel # we can't run https tests without stunnel
# or if libcurl is SSL-less
return 1; return 1;
} }
if(!$run{'ftp'}) { if(!$run{'ftp'}) {
@ -916,5 +924,5 @@ else {
print "No tests were performed!\n"; print "No tests were performed!\n";
} }
if($skipped) { if($skipped) {
print "$skipped tests were skipped due to server problems\n"; print "$skipped tests were skipped due to restraints\n";
} }