From: Guido Kanschat Date: Wed, 25 Apr 2001 09:28:48 +0000 (+0000) Subject: report generator X-Git-Tag: v8.0.0~19305 X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=41a876dec081779d99ac0167c811a44e523fa9fd;p=dealii.git report generator git-svn-id: https://svn.dealii.org/trunk@4482 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/deal.II/common/scripts/report.pl b/deal.II/common/scripts/report.pl new file mode 100644 index 0000000000..f23a5b13f7 --- /dev/null +++ b/deal.II/common/scripts/report.pl @@ -0,0 +1,82 @@ +print <<'EOT' + + +Regression tests + + +

Regression tests

Results

+ +

Date +EOT + ; + + +# read in list of test results +while (<>) +{ + $dir = $1 if (m/=====Report: ([^ ]+)/); + if (/([\d-]+) ([\d:]) ([+-]) (.)/) + { + $date = $1; + $time = $2; + $result = $3; + $name = $4; + + $results{$date}{$dir.':'.$name} = '' + if ($result eq '+'); + $results{$date}{$dir.':'.$name} = '' + if ($result eq '-'); + } +} + + +# generate a list of test case names and assign a number +# in alphabetical order to them +foreach $date (keys %results) { + foreach $name (keys %{ $results{$date} }) { + $testcase{$name} = 0; + } +} +$next_index = 1; +foreach $name (sort keys %testcase) { + $testcase{$name} = $next_index++; +} + +for ($i=1;$i<$next_index;$i++) +{ + printf "	%02d", $i; +} + +# finally output a table of results +foreach $date (sort {$b cmp $a} keys %results) +{ + print "
$date "; + foreach $name (sort keys %testcase) + { + $_ = $results{$date}{$name}; + print '	', $_; + } + print "\n"; +} + +print << 'EOT' +

Date +EOT + ; + + +# read in list of test results +while (<>) +{ + $dir = $1 if (m/=====Report: ([^ ]+)/); + if (/([\d-]+) ([\d:]*) ([+-]) (.*)/) + { + $date = $1; + $time = $2; + $result = $3; + $name = $4; + + $results{$date}{$dir.':'.$name} = '

' + if ($result eq '+'); + $results{$date}{$dir.':'.$name} = '

' + if ($result eq '-'); + } +} + + +# generate a list of test case names and assign a number +# in alphabetical order to them +foreach $date (keys %results) { + foreach $name (keys %{ $results{$date} }) { + $testcase{$name} = 0; + } +} +$next_index = 1; +foreach $name (sort keys %testcase) { + $testcase{$name} = $next_index++; +} + +for ($i=1;$i<$next_index;$i++) +{ + printf "

%02d", $i; +} + +# finally output a table of results +foreach $date (sort {$b cmp $a} keys %results) +{ + print "

$date "; + foreach $name (sort keys %testcase) + { + $_ = $results{$date}{$name}; + print '

', $_; + } + print "\n"; +} + +print << 'EOT' +

+ +

Names of test programs

+ +EOT + ; + + +# output the list of test cases +foreach $name (sort keys %testcase) { + print "

$testcase{$name}

$name\n"; +} + +print <<'EOT' +

+ + +EOT + ;