3 sub usage { die "usage: $0 reportfile\n"; }
5 $report = shift(@ARGV) || die &usage;
7 open(REPORT, $report) || die "Couldn't open $report: $!\n";
10 if (/Process termination:/ && !/\bOK\b/) {
11 warn "Process termination not OK\n";
13 } elsif (/Number of detected mismatches:\s*(\d+)/ && ($1 ne "0")) {
14 warn "Number of detected mismatches = $1\n";
16 } elsif (/Detailed Results Description/) {
26 if (($_[2] ne "run") &&
28 ($_[2] ne "end-of-test")) {
29 warn "Unexpected result code $_[2] from test $_[4]\n";
35 warn "$warnings warnings.\n";