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 TestTrace.pm
Date Mon, 09 Feb 2004 18:00:56 GMT
stas        2004/02/09 10:00:56

  Modified:    perl-framework/Apache-Test Changes
               perl-framework/Apache-Test/lib/Apache TestTrace.pm
  Log:
  prefix Apache::TestTrace (non-colour mode) messages with the loglevel,
  similar to what Apache does.
  
  Revision  Changes    Path
  1.87      +3 -0      httpd-test/perl-framework/Apache-Test/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/Changes,v
  retrieving revision 1.86
  retrieving revision 1.87
  diff -u -u -r1.86 -r1.87
  --- Changes	2 Feb 2004 18:41:04 -0000	1.86
  +++ Changes	9 Feb 2004 18:00:55 -0000	1.87
  @@ -8,6 +8,9 @@
   
   =item 1.08_dev
   
  +prefix Apache::TestTrace (non-colour mode) messages with the loglevel,
  +similar to what Apache does. [Stas]
  +
   Instrument A-T with an optional successful (shell-wise) abort of the
   test suite, by asking the user whether they want to continue w/o
   completing the test suite. Use it in places where we know that the
  
  
  
  1.20      +1 -14     httpd-test/perl-framework/Apache-Test/lib/Apache/TestTrace.pm
  
  Index: TestTrace.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestTrace.pm,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -u -r1.19 -r1.20
  --- TestTrace.pm	17 Dec 2003 17:58:02 -0000	1.19
  +++ TestTrace.pm	9 Feb 2004 18:00:55 -0000	1.20
  @@ -57,19 +57,6 @@
           $colors{$_} = Term::ANSIColor::color($colors{$_});
       }
   }
  -else {
  -    %colors = (
  -        emerg   => '&&&',
  -        alert   => '$$$',
  -        crit    => '%%%',
  -        error   => '!!!',
  -        warning => '***',
  -        notice  => '-  ',
  -        info    => '   ',
  -        debug   => '==>',
  -        todo    => 'todo',
  -    );
  -}
   
   *expand = HAS_DUMPER ?
       sub { map { ref $_ ? Data::Dumper::Dumper($_) : $_ } @_ } :
  @@ -101,7 +88,7 @@
       my ($level, $prefix_type) = (shift, shift);
       my $prefix = prefix($prefix_type);
       print $LogFH 
  -        map { sprintf "%-3s %s%s\n", $colors{$level}, $prefix, $_ } 
  +        map { sprintf "[%7s] %s%s\n", $level, $prefix, $_ } 
           grep defined($_), expand(@_);
   }
   
  
  
  

Mime
View raw message