Consistently use quote() in execute_dumb_fetch_test().

[privoxy.git] / tools / privoxy-regression-test.pl

diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl
index 828f0af..da849e6 100755 (executable)
--- a/tools/privoxy-regression-test.pl
+++ b/tools/privoxy-regression-test.pl
@@ -7,7 +7,7 @@
 # A regression test "framework" for Privoxy. For documentation see:
 # perldoc privoxy-regression-test.pl
 #
 # A regression test "framework" for Privoxy. For documentation see:
 # perldoc privoxy-regression-test.pl
 #

-# $Id: privoxy-regression-test.pl,v 1.66 2011/05/08 13:27:10 fabiankeil Exp $
+# $Id: privoxy-regression-test.pl,v 1.72 2011/06/29 18:34:23 fabiankeil Exp $

 #
 # Wish list:
 #
 #
 # Wish list:
 #


@@ -90,13 +90,9 @@ sub init_our_variables () {
 
     our $leading_log_time = LEADING_LOG_TIME;
     our $leading_log_date = LEADING_LOG_DATE;
 
     our $leading_log_time = LEADING_LOG_TIME;
     our $leading_log_date = LEADING_LOG_DATE;

-

     our $privoxy_cgi_url  = PRIVOXY_CGI_URL;
     our $privoxy_cgi_url  = PRIVOXY_CGI_URL;

-

     our $verbose_test_description = VERBOSE_TEST_DESCRIPTION;
     our $verbose_test_description = VERBOSE_TEST_DESCRIPTION;

-

     our $log_level = get_default_log_level();
     our $log_level = get_default_log_level();

-

 }
 
 sub get_default_log_level () {
 }
 
 sub get_default_log_level () {


@@ -342,7 +338,7 @@ sub load_action_files ($) {
 
     for my $file_number (0 .. @actionfiles - 1) {
 
 
     for my $file_number (0 .. @actionfiles - 1) {
 

-        my $curl_url = ' "' . $actionfiles[$file_number] . '"';
+        my $curl_url = quote($actionfiles[$file_number]);

         my $actionfile = undef;
         my $sticky_actions = undef;
 
         my $actionfile = undef;
         my $sticky_actions = undef;
 


@@ -508,7 +504,7 @@ sub execute_regression_tests () {
         my $failures;
         my $skipped = 0;
 
         my $failures;
         my $skipped = 0;
 

-        for my $s (0 .. @regression_tests - 1) {
+        for (my $s = 0;  $s < @regression_tests; $s++) {

 
             my $r = 0;
 
 
             my $r = 0;
 


@@ -745,13 +741,13 @@ sub execute_dumb_fetch_test ($) {
     my $expected_status_code = $test->{'expected-status-code'};
 
     if (defined $test->{method}) {
     my $expected_status_code = $test->{'expected-status-code'};
 
     if (defined $test->{method}) {

-        $curl_parameters .= '--request ' . $test->{method} . ' ';
+        $curl_parameters .= quote('--request') . quote($test->{method}) . ' ';

     }
     if ($test->{type} == TRUSTED_CGI_REQUEST) {
     }
     if ($test->{type} == TRUSTED_CGI_REQUEST) {

-        $curl_parameters .= '--referer ' . PRIVOXY_CGI_URL . ' ';
+        $curl_parameters .= quote('--referer ') . quote(PRIVOXY_CGI_URL) . ' ';

     }
 
     }
 

-    $curl_parameters .= $test->{'data'};
+    $curl_parameters .= quote($test->{'data'});

 
     $buffer_ref = get_page_with_curl($curl_parameters);
     $status_code = get_status_code($buffer_ref);
 
     $buffer_ref = get_page_with_curl($curl_parameters);
     $status_code = get_status_code($buffer_ref);


@@ -990,7 +986,7 @@ sub get_header ($$) {
 
     if ($expect_header eq 'REMOVAL'
      or $expect_header eq 'NO CHANGE'
 
     if ($expect_header eq 'REMOVAL'
      or $expect_header eq 'NO CHANGE'

-     or  $expect_header eq 'SOME CHANGE') {
+     or $expect_header eq 'SOME CHANGE') {

 
         $expect_header = $test->{'data'};
     }
 
         $expect_header = $test->{'data'};
     }


@@ -1309,7 +1305,7 @@ sub log_message ($) {
         if ($leading_log_date) {
             $year += 1900;
             $mon  += 1;
         if ($leading_log_date) {
             $year += 1900;
             $mon  += 1;

-            $time_stamp = sprintf("%i/%.2i/%.2i", $year, $mon, $mday);
+            $time_stamp = sprintf("%i-%.2i-%.2i", $year, $mon, $mday);

         }
 
         if ($leading_log_time) {
         }
 
         if ($leading_log_time) {