empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests: Document log file normalization a bit better

Browse source 
Signed-off-by: Markus Armbruster <armbru@pond.sub.org>
This commit is contained in:
Markus Armbruster 2014-01-05 10:23:47 +01:00
parent d0d692e415
commit df614a9bdc
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tests/normalize.pl
View file

@ -31,16 +31,18 @@ sub norm_ctime {
while (<>) { while (<>) {
chomp; chomp;
my $pfx = ''; # Strip log timestamp
if ($opt_j || $opt_s) { if ($opt_j || $opt_s) {
die "$0: malformed line" unless /^$ctime_re /; die "$0: malformed line" unless /^$ctime_re /;
$_ = substr($_, 25); $_ = substr($_, 25);
} }
# Split off prefix that is not to be normalized
my $pfx = '';
if ($opt_j) { if ($opt_j) {
die "$0: malformed line" unless substr($_, 10, 1) eq ' '; die "$0: malformed line" unless substr($_, 10, 1) eq ' ';
$pfx .= substr($_, 0, 11); $pfx .= substr($_, 0, 11);
# Normalize only player output
$_ = substr($_, 11); $_ = substr($_, 11);
if (/(^output [^ ]* 1 )(.*)/) { if (/(^output [^ ]* 1 )(.*)/) {
$pfx .= $1; $pfx .= $1;