X-Git-Url: http://www.privoxy.org/gitweb/user-manual/contact.html?a=blobdiff_plain;ds=sidebyside;f=tools%2Fprivoxy-regression-test.pl;h=d9ca098b9e947a6f296c8fa578275391211212d2;hb=679a69acd2633bcaf94add67917bc73e91fa672a;hp=c2c8f859d9d46f63da7a59f27f966412599e05ef;hpb=c6b411497d3819fa5579f6ce265b9571742b2297;p=privoxy.git

diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl
index c2c8f859..d9ca098b 100755
--- a/tools/privoxy-regression-test.pl
+++ b/tools/privoxy-regression-test.pl
@@ -17,7 +17,7 @@
 # - Document magic Expect Header values
 # - Internal fuzz support?
 #
-# Copyright (c) 2007-2021 Fabian Keil <fk@fabiankeil.de>
+# Copyright (c) 2007-2023 Fabian Keil <fk@fabiankeil.de>
 #
 # Permission to use, copy, modify, and distribute this software for any
 # purpose with or without fee is hereby granted, provided that the above
@@ -38,7 +38,7 @@ use strict;
 use Getopt::Long;
 
 use constant {
-    PRT_VERSION => 'Privoxy-Regression-Test 0.7.2',
+    PRT_VERSION => 'Privoxy-Regression-Test 0.7.4',
  
     CURL => 'curl',
 
@@ -372,7 +372,7 @@ sub tokenize($) {
     my ($token, $value) = (undef, undef);
 
     # Remove leading and trailing white space and a
-    # a leading <pre> which is part of the first line.
+    # leading <pre> which is part of the first line.
     s@^\s*(<pre>)?@@;
     s@\s*$@@;
 
@@ -1693,6 +1693,7 @@ sub help() {
     print << "    EOF"
 
 Options and their default values if they have any:
+    [--check-bad-ssl]
     [--debug $cli_options{'debug'}]
     [--forks $cli_options{'forks'}]
     [--fuzzer-address]
@@ -1778,6 +1779,11 @@ sub parse_cli_options() {
         'version'            => sub {print_version && exit(0)}
     ) or exit(1);
     $log_level |= $cli_options{'debug'};
+
+    if ($cli_options{'min-level'} > $cli_options{'max-level'}) {
+        log_message("Increasing --max-level to --min-level " . $cli_options{'min-level'});
+        $cli_options{'max-level'} = $cli_options{'min-level'};
+    }
 }
 
 sub cli_option_is_set($) {
@@ -2096,6 +2102,8 @@ a fuzzer.
 
 B<--min-level min-level> Only execute tests with a B<level>
 above or equal to the numerical B<min-level>.
+If the B<min-level> is larger than the B<max-level>,
+the B<max-level> is set to the B<min-level>.
 
 B<--privoxy-address proxy-address> Privoxy's listening address.
 If it's not set, the value of the environment variable http_proxy