User: knarf Date: 2010/06/16 01:50 PM
Modified: /release-info/ parse_testsuite_results.cgi
Log: output totals
File Changes:
Directory: /release-info/ =========================
File [modified]: parse_testsuite_results.cgi Delta lines: +17 -1 =================================================================== --- release-info/parse_testsuite_results.cgi 2010-06-16 18:15:54 UTC (rev 229) +++ release-info/parse_testsuite_results.cgi 2010-06-16 18:50:40 UTC (rev 230) @@ -71,7 +71,9 @@ if (!defined($allhosts{$host})) { $allhosts{$host} = (); } - $allhosts{$host}{$nprocs} = 1; + $allhosts{$host}{$nprocs} = {"success" => 0, + "fail" => 0, + "ran" => 0}; } } } @@ -96,13 +98,18 @@ $table_entries .= " $tr<td>$test</td>"; foreach my $host (sort(keys(%allhosts))) { foreach my $nprocs (sort(keys(%{$allhosts{$host}}))) { + # color handling my $color = " style="background-color:#d0d0d0;""; if ($nprocs != "1") { $color = " style="background-color:#e0e0e0;""; } + # if (defined($results{$thorn}{$test}{$host}) and defined($results{$thorn}{$test}{$host}{$nprocs})) { + $allhosts{$host}{$nprocs}{"ran"}++; if ($results{$thorn}{$test}{$host}{$nprocs}{"result"} =~ /Success/) { + $allhosts{$host}{$nprocs}{"success"}++; $table_entries .= "<td$color align='center'>â</td>"; } else { + $allhosts{$host}{$nprocs}{"fail"}++; my $details = $results{$thorn}{$test}{$host}{$nprocs}{"details"}; my $entry = "<b>$details</b>"; if ($details =~ /(\d+) files compared, (\d+) differ, (\d+) differ significantly/) { @@ -121,5 +128,14 @@ $table_entries .= "</tr>\n"; $tr="<tr>"; } } +$table_entries .= "<tr><th colspan='2'>Total</th>"; +foreach my $host (sort(keys(%allhosts))) { + foreach my $nprocs (sort(keys(%{$allhosts{$host}}))) { + $table_entries .= "<td>(".$allhosts{$host}{$nprocs}{"success"}."/<b>". + $allhosts{$host}{$nprocs}{"fail"}."</b>)/". + $allhosts{$host}{$nprocs}{"ran"}."</td>"; + } +} +$table_entries .= "</tr>\n";
print "<table border='1'>$table_entries</table>\n";