PT-96 Fixed tests for SimpleTCPDumpParser

This commit is contained in:
Carlos Salguero
2017-03-09 23:51:59 -03:00
parent 5407573c74
commit e4ce711969

View File

@@ -400,12 +400,15 @@ sub test_log_parser {
misc => $args{misc},
oktorun => $args{oktorun},
);
while ( my $e = $p->parse_event(%parser_args) ) {
while ( my $e = $p->parse_event(%parser_args) ) {
push @e, $e;
}
close $fh;
};
# sort the array just to make this testeable.
@e = sort { $a->{pos_in_log} <=> $b->{pos_in_log} } @e;
my ($base_file_name) = $args{file} =~ m/([^\/]+)$/;
is(
$EVAL_ERROR,