From 387c94cc1f3e8ad3f44a3e6370f808fc866a9f2c Mon Sep 17 00:00:00 2001 From: Guido Kanschat Date: Tue, 24 Apr 2001 16:31:22 +0000 Subject: [PATCH] perl script for HTML-reports git-svn-id: https://svn.dealii.org/trunk@4480 0785d39b-7218-0410-832d-ea1e28bc413d --- tests/report.pl | 85 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 85 insertions(+) create mode 100644 tests/report.pl 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 + ; -- 2.39.5