[Commits] [svn:einsteintoolkit] www/release-info/ (Rev. 230)

[knarf at cct.lsu.edu]

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";