projects
/
privoxy.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
75faf0e
)
Cosmetics.
author
Fabian Keil
<fk@fabiankeil.de>
Sat, 16 Feb 2008 12:46:52 +0000
(12:46 +0000)
committer
Fabian Keil
<fk@fabiankeil.de>
Sat, 16 Feb 2008 12:46:52 +0000
(12:46 +0000)
tools/privoxy-regression-test.pl
patch
|
blob
|
history
diff --git
a/tools/privoxy-regression-test.pl
b/tools/privoxy-regression-test.pl
index
4fc9096
..
3ea75a6
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.
104 2008/01/21 18:23:49 fk
Exp $
+# $Id: privoxy-regression-test.pl,v 1.
2 2008/01/21 18:43:16 fabiankeil
Exp $
#
# Wish list:
#
#
# Wish list:
#
@@
-45,9
+45,9
@@
use strict;
use Getopt::Long;
use constant {
use Getopt::Long;
use constant {
- PRT_VERSION
=> 'Privoxy-Regression-Test 0.2',
+ PRT_VERSION => 'Privoxy-Regression-Test 0.2',
- CURL
=> 'curl',
+ CURL => 'curl',
# CLI option defaults
CLI_RETRIES => 1,
# CLI option defaults
CLI_RETRIES => 1,
@@
-383,7
+383,9
@@
sub load_action_files ($) {
l(LL_FILE_LOADING, "Method: " . $value);
$regression_tests[$si][$ri]{'method'} = $value;
l(LL_FILE_LOADING, "Method: " . $value);
$regression_tests[$si][$ri]{'method'} = $value;
+
} else {
} else {
+
# We don't use it, so we don't need
$no_checks = 1;
}
# We don't use it, so we don't need
$no_checks = 1;
}
@@
-467,7
+469,6
@@
sub execute_regression_tests () {
}
}
-
if (get_cli_option('loops') > 1) {
log_message("Total: Executed " . $all_tests . " regression tests. " .
$all_successes . " successes, " . $all_failures . " failures.");
if (get_cli_option('loops') > 1) {
log_message("Total: Executed " . $all_tests . " regression tests. " .
$all_successes . " successes, " . $all_failures . " failures.");
@@
-796,7
+797,7
@@
sub get_server_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'};
@@
-898,7
+899,6
@@
sub test_content_as_string ($) {
my $s = "\n\t";
foreach my $key (get_test_keys()) {
my $s = "\n\t";
foreach my $key (get_test_keys()) {
- #$test{$key} = $test{$key} // 'undefined';
$test{$key} = 'Not set' unless (defined $test{$key});
}
$test{$key} = 'Not set' unless (defined $test{$key});
}
@@
-1272,7
+1272,6
@@
sub cli_option_is_set ($) {
return defined $cli_options{$cli_option};
}
return defined $cli_options{$cli_option};
}
-
sub get_cli_option ($) {
our %cli_options;
sub get_cli_option ($) {
our %cli_options;
@@
-1283,7
+1282,6
@@
sub get_cli_option ($) {
return $cli_options{$cli_option};
}
return $cli_options{$cli_option};
}
-
sub main () {
init_our_variables();
sub main () {
init_our_variables();