httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm
Date Thu, 07 Mar 2002 05:20:18 GMT
stas        02/03/06 21:20:18

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  - add a command line interface for changing tracing level
  
  Revision  Changes    Path
  1.86      +14 -1     httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
  
  Index: TestRun.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
  retrieving revision 1.85
  retrieving revision 1.86
  diff -u -r1.85 -r1.86
  --- TestRun.pm	16 Jan 2002 17:05:20 -0000	1.85
  +++ TestRun.pm	7 Mar 2002 05:20:18 -0000	1.86
  @@ -24,7 +24,7 @@
   my @std_run      = qw(start-httpd run-tests stop-httpd);
   my @others       = qw(verbose configure clean help ssl http11);
   my @flag_opts    = (@std_run, @others);
  -my @string_opts  = qw(order);
  +my @string_opts  = qw(order trace);
   my @ostring_opts = qw(proxy ping);
   my @debug_opts   = qw(debug);
   my @num_opts     = qw(times);
  @@ -53,6 +53,7 @@
      'http11'          => 'run all tests with HTTP/1.1 (keep alive) requests',
      'ssl'             => 'run tests through ssl',
      'proxy'           => 'proxy requests (default proxy is localhost)',
  +   'trace=T'         => 'change tracing default to: warning, notice, info, debug, ...',
      (map { $_, "\U$_\E url" } @request_opts),
   );
   
  @@ -207,6 +208,18 @@
       if (exists $opts{debug}) {
           $opts{debugger} = $opts{debug};
           $opts{debug} = 1;
  +    }
  +
  +    if ($opts{trace}) {
  +        my %levels = map {$_ => 1} @Apache::TestTrace::Levels;
  +        if (exists $levels{ $opts{trace} }) {
  +            $Apache::TestTrace::Level = $opts{trace};
  +        }
  +        else {
  +            error "unknown trace level: $opts{trace}",
  +                "valid levels are: @Apache::TestTrace::Levels";
  +            exit_perl 0;
  +        }
       }
   
       # breakpoint automatically turns the debug mode on
  
  
  

Mime
View raw message