From d639347fc3b0b46ebc994479339d2935f3887399 Mon Sep 17 00:00:00 2001 From: deal Date: Wed, 17 Apr 2002 11:28:09 +0000 Subject: [PATCH] Micro changes. git-svn-id: https://svn.dealii.org/trunk@5674 0785d39b-7218-0410-832d-ea1e28bc413d --- deal.II/common/scripts/report-regression-tests.pl | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/deal.II/common/scripts/report-regression-tests.pl b/deal.II/common/scripts/report-regression-tests.pl index d46b0183da..0f040ccd52 100644 --- a/deal.II/common/scripts/report-regression-tests.pl +++ b/deal.II/common/scripts/report-regression-tests.pl @@ -45,7 +45,7 @@ foreach $name (sort keys %testcase) { # then generate output for the three frames and the panels for # the different months -# first get last active months for the default panel +# first get last active month for the default panel foreach $date (sort {$b cmp $a} keys %results) { $date =~ /(\d+)-(\d+)-\d+/; @@ -134,7 +134,7 @@ foreach $date (sort {$b cmp $a} keys %results) print TABLE_FILE "\n\n"; close TABLE_FILE; } - $file = "tests_report_${this_year}_$this_month.html"; + $file = "tests_report_${this_year}_${this_month}.html"; use Cwd; $dir = cwd(); open TABLE_FILE, ">$file" or die "Can't open output file $file in $dir\n"; @@ -172,7 +172,7 @@ EOT } # now write link to month file print HEAD_FILE ""; - print HEAD_FILE "$this_year/$this_month  \n"; + print HEAD_FILE "${this_year}/${this_month}  \n"; } print TABLE_FILE "$date "; @@ -216,10 +216,15 @@ foreach $name (sort keys %testcase) { if ($col == 0) { print NAMES_FILE "\n"; } - print NAMES_FILE " $testcase{$name} $name\n"; + print NAMES_FILE " $testcase{$name}", + " $name\n"; # next column. if at end, wrap around $col = ($col+1)%4; + + if ($col == 0) { + print NAMES_FILE "\n"; + } } print NAMES_FILE <<'EOT' -- 2.39.5