print STDOUT "error skipped, $error_count\n";
return;
}
+ # 34-lp1787968 intentionally causes an error
+ if ($line =~ /spool_jacket: unable to parse \/openils\/var\/web\/opac\/extras\/ac\/jacket\/large\/r\/1.temp/) {
+ print DEBUG "error skipped, $error_count\n";
+ print STDOUT "error skipped, $error_count\n";
+ return;
+ }
+ # lp1883171-copy-inventory.t intentionally causes some errors
+ if ($line =~ /Inventory workstation owning lib/) {
+ print DEBUG "error skipped, $error_count\n";
+ print STDOUT "error skipped, $error_count\n";
+ return;
+ }
+ if ($line =~ /open-ils.cstore.direct.asset.copy_inventory.create/) {
+ print DEBUG "error skipped, $error_count\n";
+ print STDOUT "error skipped, $error_count\n";
+ return;
+ }
+ print "unskipped: $line";
}
if ($subpage eq 'Gathering system information') {
if ($line =~ /Status,Err: uppercase=bad/) {
my $p_subpage_return_value = shift;
my $expected_error_count = {}; # keyed on subpage, value = # of expected errors
$expected_error_count{'Installing Evergreen pre-requisites'} = 1; # Result: FAIL for Class-DBI-Frozen-301-3.0.1-Dd3c7H
+ $expected_error_count{'Log Output: osrfsys.log'} = 6; # INSERT errors from copy inventory test
if (! defined $expected_error_count{$p_subpage}) {
$expected_error_count{$p_subpage} = 0;
# $p_error_count = 1;
# }
#}
- #print "subpage = <$p_subpage> error_count = $p_error_count\n";
+ print "subpage = <$p_subpage>: expected error count = " . $expected_error_count{$p_subpage} . ", actual error_count = $p_error_count\n";
if ($p_error_count && $p_error_count != $expected_error_count{$p_subpage} ) {
if (!$first_failure) {
$first_failure = 1;