From: guido Date: Tue, 24 Apr 2001 16:31:22 +0000 (+0000) Subject: perl script for HTML-reports X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=45bc565dc94e62e82067a3544cdaa1ca13ce6993;p=dealii-svn.git perl script for HTML-reports git-svn-id: https://svn.dealii.org/trunk@4480 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/tests/report.pl b/tests/report.pl new file mode 100644 index 0000000000..c672bf9e80 --- /dev/null +++ b/tests/report.pl @@ -0,0 +1,85 @@ +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} = $result; + } +} + + +# 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 keys %results) { + print "
$date "; + foreach $name (sort keys %testcase) { + $_ = $results{$date}{$name}; + if (/-/) + { + print ' X'; + } elsif (/\+/) + { + print ' O'; + } else { + 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 + ;