From 43a58db8f2d17dee35069d39001d5cf770db05d3 Mon Sep 17 00:00:00 2001 From: deal 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} = '' - 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}; -- 2.39.5
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}