Signed-off-by: Jason Etheridge <jason@esilibrary.com>
$evergreen_tip = $1;
}
if ($line =~ /_\.-~= (.*)$/) {
+ $prev_subpage = $subpage;
$subpage = $1;
$state = 'outputting';
- print_pass_or_fail();
+ print_pass_or_fail($prev_subpage);
$error_count = 0;
$subpage_count++;
print MAIN_PAGE qq^\n<li><a href="test.$subpage_count.html">$subpage</a>^;
}
sub print_pass_or_fail {
- if ($error_count) {
+ my $subpage = shift;
+ my $exception = {}; # keyed on subpage, value = # of expected errors
+ $exception{'Installing Evergreen pre-requisites'} = 3;
+ #print "subpage = <$subpage> error_count = $error_count\n";
+ if ($error_count && $error_count > $exception{$subpage} ) {
print MAIN_PAGE ' - <span class="fail">Failed</span>';
print PASS_FAIL "Failed\n";
} else {