]> granicus.if.org Git - curl/commitdiff
added a command line log that logs all command lines run in the complete
authorDaniel Stenberg <daniel@haxx.se>
Tue, 21 Nov 2000 17:07:16 +0000 (17:07 +0000)
committerDaniel Stenberg <daniel@haxx.se>
Tue, 21 Nov 2000 17:07:16 +0000 (17:07 +0000)
test run

tests/runtests.pl

index 20a001f3a0e8c3e5ad8e8cf3e88ee64f0c198426..34a7dec11b912407bdcc76a08b0db7e61c5d151a 100755 (executable)
@@ -11,11 +11,12 @@ use strict;
 my $HOSTIP="127.0.0.1";
 my $HOSTPORT=8999; # bad name, but this is the HTTP server port
 my $FTPPORT=8921;  # this is the FTP server port
-my $CURL="../src/curl";
+my $CURL="../src/curl"; # what curl executable to run on the tests
 my $LOGDIR="log";
 my $TESTDIR="data";
-my $SERVERIN="$LOGDIR/server.input";
-my $CURLOUT="$LOGDIR/curl.out";
+my $SERVERIN="$LOGDIR/server.input"; # what curl sent the server
+my $CURLOUT="$LOGDIR/curl.out"; # curl output if not stdout
+my $CURLLOG="$LOGDIR/curl.log"; # all command lines run
 
 # Normally, all test cases should be run, but at times it is handy to
 # simply run a particular one:
@@ -382,6 +383,8 @@ sub singletest {
         print "$CMDLINE\n";
     }
 
+    print CMDLOG "$CMDLINE\n";
+
     # run the command line we built
     my $res = system("$CMDLINE");
     $res /= 256;
@@ -454,8 +457,8 @@ sub singletest {
         # always differ!
 
         # verify the sent request
-        $res = compare($SERVERIN, $PROT, "http",
-                       "^(User-Agent:|--curl|Content-Type: multipart/form-data; boundary=|PORT 127,0,0,1).*\r\n");
+        $res = compare($SERVERIN, $PROT, "protocol",
+                       "^(User-Agent:|--curl|Content-Type: multipart/form-data; boundary=|PORT ).*\r\n");
         if($res) {
             return 1;
         }
@@ -576,6 +579,12 @@ if ( $TESTCASES eq "all") {
     }
 }
 
+#######################################################################
+# Start the command line log
+#
+open(CMDLOG, ">$CURLLOG") ||
+    print "can't log command lines to $CURLLOG\n";
+
 #######################################################################
 # The main test-loop
 #
@@ -592,6 +601,11 @@ foreach $testnum (split(" ", $TESTCASES)) {
     # loop for next test
 }
 
+#######################################################################
+# Close command log
+#
+close(CMDLOG);
+
 #######################################################################
 # Tests done, stop the servers
 #