From: Fabian Keil Date: Sat, 19 Feb 2011 13:59:20 +0000 (+0000) Subject: In the --help output, include a list of supported test types and their default levels. X-Git-Tag: v_3_0_18~322 X-Git-Url: http://www.privoxy.org/gitweb/@default-cgi@/faq/%22https:/@default-cgi@edit-actions-add-url-form?a=commitdiff_plain;h=3da62991440d075531c735491a6953c459776aab;p=privoxy.git In the --help output, include a list of supported test types and their default levels. --- diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl index e75d2cc2..66ec6366 100755 --- 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 # -# $Id: privoxy-regression-test.pl,v 1.200 2010/01/03 13:46:38 fk Exp $ +# $Id: privoxy-regression-test.pl,v 1.61 2010/01/03 13:49:01 fabiankeil Exp $ # # Wish list: # @@ -1426,6 +1426,24 @@ sub print_version () { printf PRT_VERSION . "\n" . 'Copyright (C) 2007-2009 Fabian Keil ' . "\n"; } +sub list_test_types () { + my %test_types = ( + 'Client header test' => CLIENT_HEADER_TEST, + 'Server header test' => 2, + 'Dumb fetch test' => 3, + 'Method test' => 4, + 'Sticky action test' => 5, + 'Trusted CGI test' => 6, + 'Block test' => 7, + 'Redirect test' => 108, + ); + + print "\nThe supported test types and their default levels are:\n"; + foreach my $test_type (sort { $test_types{$a} <=> $test_types{$b} } keys %test_types) { + printf " %-20s -> %3.d\n", $test_type, $test_types{$test_type}; + } +} + sub help () { our %cli_options; @@ -1452,9 +1470,17 @@ Options and their default values if they have any: [--test-number] [--verbose] [--version] -see "perldoc $0" for more information EOF ; + + list_test_types(); + + print << " EOF" + +Try "perldoc $0" for more information + EOF + ; + exit(0); }