From 3723c52057a871600f0f4e8aaae847a1c9113da8 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 27 Nov 2000 11:53:50 +0000
Subject: if the server doesn't output a logfile, the protocol file is not
 compared with it! This makes tests without server (like for file://) smarter.

---
 tests/runtests.pl | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 298b83478..e5761a9e0 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -345,6 +345,9 @@ sub singletest {
         next;
     }
 
+    # remove previous server output logfile
+    unlink($SERVERIN);
+
     # name of the test
     open(N, "<$TESTDIR/name$NUMBER.txt") ||
         print "** Couldn't read name on test $NUMBER\n";
@@ -464,22 +467,24 @@ sub singletest {
         }
 
 
-        if (! -r $PROT) {
-            print "** Missing protocol file for test $NUMBER",
-            ", should be similar to $SERVERIN\n";
-            return 1;
-        }
-
-        # The strip pattern below is for stripping off User-Agent: since
-        # that'll be different in all versions, and the lines in a
-        # RFC1876-post that are randomly generated and therefore are doomed to
-        # always differ!
+        if(-r $SERVERIN) {
+            if(! -r $PROT) {
+                print "** Missing protocol file for test $NUMBER",
+                ", should be similar to $SERVERIN\n";
+                return 1;
+            }
 
-        # verify the sent request
-        $res = compare($SERVERIN, $PROT, "protocol",
-                       "^(User-Agent:|--curl|Content-Type: multipart/form-data; boundary=|PORT ).*\r\n");
-        if($res) {
-            return 1;
+            # The strip pattern below is for stripping off User-Agent: since
+            # that'll be different in all versions, and the lines in a
+            # RFC1876-post that are randomly generated and therefore are
+            # doomed to always differ!
+            
+            # verify the sent request
+            $res = compare($SERVERIN, $PROT, "protocol",
+                           "^(User-Agent:|--curl|Content-Type: multipart/form-data; boundary=|PORT ).*\r\n");
+            if($res) {
+                return 1;
+            }
         }
 
         # remove the stdout and stderr files
-- 
cgit v1.2.3