From: deal Date: Mon, 30 Jul 2001 09:30:58 +0000 (+0000) Subject: Add colorized column indicating how many test cases failed today. X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=43a58db8f2d17dee35069d39001d5cf770db05d3;p=dealii-svn.git Add colorized column indicating how many test cases failed today. git-svn-id: https://svn.dealii.org/trunk@4862 0785d39b-7218-0410-832d-ea1e28bc413d --- 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} = '' - if ($result eq '+'); - $results{$date}{$dir.':'.$name} = '' - if ($result eq '-'); + $total_testcases{$date}++; + + if ($result eq '+') { + $results{$date}{$dir.':'.$name} + = ''; + } + else + { + $results{$date}{$dir.':'.$name} + = ''; + $failed_testcases{$date}++; + }; } } @@ -141,7 +149,7 @@ print TABLE_FILE <<"EOT"

Results for $this_year/$this_month

-"; + foreach $name (sort keys %testcase) { $_ = $results{$date}{$name};
Date +
Date Fail EOT ; @@ -157,6 +165,14 @@ EOT } print TABLE_FILE "
$date "; + + $failed_testcases{$date} = 0 if (!defined $failed_testcases{$date}); + + print TABLE_FILE "" if ($failed_testcases{$date} == 0); + print TABLE_FILE "" if ($failed_testcases{$date} != 0); + + print TABLE_FILE "$failed_testcases{$date}/$total_testcases{$date}