From 43a58db8f2d17dee35069d39001d5cf770db05d3 Mon Sep 17 00:00:00 2001
From: deal <deal@0785d39b-7218-0410-832d-ea1e28bc413d>
Date: Mon, 30 Jul 2001 09:30:58 +0000
Subject: [PATCH] Add colorized column indicating how many test cases failed
 today.

git-svn-id: https://svn.dealii.org/trunk@4862 0785d39b-7218-0410-832d-ea1e28bc413d
---
 deal.II/common/scripts/report.pl | 26 +++++++++++++++++++++-----
 1 file changed, 21 insertions(+), 5 deletions(-)

diff --git a/deal.II/common/scripts/report.pl b/deal.II/common/scripts/report.pl
index 1b29934ae8..e942d516f7 100644
--- a/deal.II/common/scripts/report.pl
+++ b/deal.II/common/scripts/report.pl
@@ -10,10 +10,18 @@ while (<>)
 	$result = $3;
 	$name   = $4;
 
-	$results{$date}{$dir.':'.$name} = '<img src="pictures/ok.gif" size="1">'
-	    if ($result eq '+');
-	$results{$date}{$dir.':'.$name} = '<img src="pictures/fail.gif" size="1">'
-	    if ($result eq '-');
+	$total_testcases{$date}++;
+
+	if ($result eq '+') {
+	    $results{$date}{$dir.':'.$name} 
+	    = '<img src="pictures/ok.gif" size="1">';
+	}
+	else
+	{
+	    $results{$date}{$dir.':'.$name}
+	    = '<img src="pictures/fail.gif" size="1">';
+	    $failed_testcases{$date}++;
+	};
     }
 }
 
@@ -141,7 +149,7 @@ print TABLE_FILE <<"EOT"
 
 <h3 align="center">Results for $this_year/$this_month</h3>
 <table>
-<tr><th>Date
+<tr><th>Date <th> Fail
 EOT
     ;
 
@@ -157,6 +165,14 @@ EOT
     }
 
     print TABLE_FILE "<tr><td>$date  ";
+
+    $failed_testcases{$date} = 0 if (!defined $failed_testcases{$date});
+
+    print TABLE_FILE "<td><b style=\"color:blue;\">" if ($failed_testcases{$date} == 0);
+    print TABLE_FILE "<td><b style=\"color:red;\">" if ($failed_testcases{$date} != 0);
+
+    print TABLE_FILE "$failed_testcases{$date}/$total_testcases{$date}</b></td>";
+
     foreach $name (sort keys %testcase)
     {
 	$_ = $results{$date}{$name};
-- 
2.39.5