From a8bc40fe4e2c562e0a229a7b3be7cd235c54cffd Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 21 May 2001 13:38:38 +0000
Subject: [PATCH] doesn't run ssl tests if libcurl wasn't built with ssl
 support (and reports about the libcurl SSL status)

---
 tests/runtests.pl | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

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