From 033450975416d08798d79bd84a4c48c26e9927ec Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Wed, 29 Oct 2003 16:27:43 +0000
Subject: Stop using stunnel.pm, we pass in the path from the main script
 instead. Also made it easier to stop the test suite with control-c.

---
 tests/ftpsserver.pl  | 13 ++++++-------
 tests/httpsserver.pl | 13 ++++++-------
 tests/runtests.pl    | 38 +++++++++++++++++++++++++++-----------
 3 files changed, 39 insertions(+), 25 deletions(-)

diff --git a/tests/ftpsserver.pl b/tests/ftpsserver.pl
index d9256775d..3a3797b82 100644
--- a/tests/ftpsserver.pl
+++ b/tests/ftpsserver.pl
@@ -7,19 +7,14 @@
 
 use strict;
 
-use stunnel;
-
-my $stunnel = &checkstunnel;
-
-if(!$stunnel) {
-    exit;
-}
+my $stunnel = "stunnel";
 
 #
 # -p pemfile
 # -P pid dir
 # -d listen port
 # -r target port
+# -s stunnel path
 
 my $verbose=0; # set to 1 for debugging
 
@@ -43,6 +38,10 @@ do {
         $srcdir=$ARGV[1];
         shift @ARGV;
     }
+    elsif($ARGV[0] eq "-s") {
+        $stunnel=$ARGV[1];
+        shift @ARGV;
+    }
     elsif($ARGV[0] =~ /^(\d+)$/) {
         $port = $1;
     }
diff --git a/tests/httpsserver.pl b/tests/httpsserver.pl
index 10e32bf42..068f89e3e 100644
--- a/tests/httpsserver.pl
+++ b/tests/httpsserver.pl
@@ -7,19 +7,14 @@
 
 use strict;
 
-use stunnel;
-
-my $stunnel = &checkstunnel;
-
-if(!$stunnel) {
-    exit;
-}
+my $stunnel = "stunnel";
 
 #
 # -p pemfile
 # -P pid dir
 # -d listen port
 # -r target port
+# -s stunnel path
 
 my $verbose=0; # set to 1 for debugging
 
@@ -42,6 +37,10 @@ do {
         $target_port=$ARGV[1];
         shift @ARGV;
     }
+    elsif($ARGV[0] eq "-s") {
+        $stunnel=$ARGV[1];
+        shift @ARGV;
+    }
     elsif($ARGV[0] eq "-d") {
         $srcdir=$ARGV[1];
         shift @ARGV;
diff --git a/tests/runtests.pl b/tests/runtests.pl
index 49931f29c..ffb713b57 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -56,8 +56,8 @@ my $memdump="memdump";
 # the path to the script that analyzes the memory debug output file:
 my $memanalyze="./memanalyze.pl";
 
-my $checkstunnel = checkcmd("stunnel");
-my $checkvalgrind = checkcmd("valgrind");
+my $stunnel = checkcmd("stunnel");
+my $valgrind = checkcmd("valgrind");
 
 my $ssl_version; # set if libcurl is built with SSL support
 
@@ -65,7 +65,7 @@ my $skipped=0;  # number of tests skipped; reported in main loop
 my %skipped;    # skipped{reason}=counter, reasons for skip
 my @teststat;   # teststat[testnum]=reason, reasons for skip
 
-if($checkvalgrind) {
+if($valgrind) {
     # we have found valgrind on the host, use it
 
     # perhaps we should verify that valgrind works before we actually use it?
@@ -385,6 +385,10 @@ sub runhttpsserver {
     my $RUNNING;
     my $pid=checkserver($HTTPSPIDFILE );
 
+    if(!$stunnel) {
+        return 0;
+    }
+
     if($pid > 0) {
         # kill previous stunnel!
         if($verbose) {
@@ -394,7 +398,7 @@ sub runhttpsserver {
     }
 
     my $flag=$debugprotocol?"-v ":"";
-    my $cmd="$perl $srcdir/httpsserver.pl $flag -d $srcdir -r $HOSTPORT $HTTPSPORT &";
+    my $cmd="$perl $srcdir/httpsserver.pl $flag -s \"$stunnel\" -d $srcdir -r $HOSTPORT $HTTPSPORT &";
     system($cmd);
     if($verbose) {
         print "CMD: $cmd\n";
@@ -498,6 +502,10 @@ sub runftpsserver {
     my $RUNNING;
     my $pid=checkserver($FTPSPIDFILE );
 
+    if(!$stunnel) {
+        return 0;
+    }
+
     if($pid > 0) {
         # kill previous stunnel!
         if($verbose) {
@@ -507,7 +515,7 @@ sub runftpsserver {
     }
 
     my $flag=$debugprotocol?"-v ":"";
-    my $cmd="$perl $srcdir/ftpsserver.pl $flag -d $srcdir -r $FTPPORT $FTPSPORT &";
+    my $cmd="$perl $srcdir/ftpsserver.pl $flag -s \"$stunnel\" -d $srcdir -r $FTPPORT $FTPSPORT &";
     system($cmd);
     if($verbose) {
         print "CMD: $cmd\n";
@@ -652,10 +660,10 @@ sub checkcurl {
     "* Host: $hostname",
     "* System: $hosttype";
 
-    printf("* Server SSL:       %s\n", $checkstunnel?"ON":"OFF");
+    printf("* Server SSL:       %s\n", $stunnel?"ON":"OFF");
     printf("* libcurl SSL:      %s\n", $ssl_version?"ON":"OFF");
     printf("* libcurl debug:    %s\n", $curl_debug?"ON":"OFF");
-    printf("* valgrind:         %s\n", $checkvalgrind?"ON":"OFF");
+    printf("* valgrind:         %s\n", $valgrind?"ON":"OFF");
     print "***************************************** \n";
 }
 
@@ -902,7 +910,7 @@ sub singletest {
 
         $cmdargs .= " <$stdinfile";
     }
-    if($checkvalgrind) {
+    if($valgrind) {
         $cmdargs .= " 3>log/valgrind$testnum";
     }
     my $CMDLINE;
@@ -935,7 +943,15 @@ sub singletest {
     }
     else {
         $res = system("$CMDLINE");
-        $res /= 256;
+        my $signal_num  = $res & 127;
+        my $dumped_core = $res & 128;
+
+        if(!$anyway && ($signal_num || $dumped_core)) {
+            $res = 1000;
+        }
+        else {
+            $res /= 256;
+        }
     }
 
     # remove the special FTP command file after each test!
@@ -1158,7 +1174,7 @@ sub startservers {
             }
         }
         elsif($what eq "ftps") {
-            if(!$checkstunnel || !$ssl_version) {
+            if(!$stunnel || !$ssl_version) {
                 # we can't run https tests without stunnel
                 # or if libcurl is SSL-less
                 return 1;
@@ -1183,7 +1199,7 @@ sub startservers {
             # we support it but have no server!
         }
         elsif($what eq "https") {
-            if(!$checkstunnel || !$ssl_version) {
+            if(!$stunnel || !$ssl_version) {
                 # we can't run https tests without stunnel
                 # or if libcurl is SSL-less
                 return 1;
-- 
cgit v1.2.3