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(@_);
}
