my $state = 'skipping';
my $error_count = 0;
+my $subpage_return_value;
my $subpage_count = 0;
my $subpage = '';
my $opensrf_tip = '';
$error_count++;
}
if ($line =~ /^Return Value = (.+)$/) {
+ $subpage_return_value = $1;
if ($1 ne '0') {
$class .= 'fail ';
$error_count++;
sub print_pass_or_fail {
my $subpage = shift;
my $exception = {}; # keyed on subpage, value = # of expected errors
- $exception{'Installing Evergreen pre-requisites'} = 1; # Class-DBI-Frozen test failure
$exception{'Log Output: osrfsys.log'} = 3; # open-ils.cstore ERROR from live_t/08-lp1366964-libdbi-error.t (and related)
if (! defined $exception{$subpage}) {
$exception{$subpage} = 0;
}
+ # just consider the final Return Value for the following subpages:
+ if ($subpage eq 'Installing Evergreen pre-requisites') {
+ $error_count = 0;
+ if ($subpage_return_value ne '0') {
+ $error_count = 1;
+ }
+ }
#print "subpage = <$subpage> error_count = $error_count\n";
if ($error_count && $error_count != $exception{$subpage} ) {
print MAIN_PAGE ' - <span class="fail">Failed</span>';