[releng: Add a test report table to the report included in the website.
Petr Rockai <me@mornfall.net>**20170119203958
 Ignore-this: d841c998e4440da0abb501f101047bd3
] hunk ./releng/nightly.sh 15
+    perl releng/tests2html.pl < $list >> doc/website/report.txt
hunk ./releng/nightly.sh 18
+    rm -rf "$objdir/doc/website/test"
+    cp -R "$objdir/test/results" "$objdir/doc/website/test"
hunk ./releng/nightly.sh 102
+    test -e $list && cp report.txt doc/website/
addfile ./releng/tests2html.pl
hunk ./releng/tests2html.pl 1
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+my %codemap = ( passed => "✓", failed => "✗", warning => "!",
+                skipped => "–", timeout => "T", started => "…" );
+my ( $table, $lastcat ) = ( "", "" );
+my %rescount;
+
+while ( <> )
+{
+    m,^([^\s]*)\s+(.*)$,m;
+    my ( $test, $status, $link, $schar ) = ( $1, $2, "$1.txt", $codemap{$2} );
+
+    my $cat = (split( m,[:/],, $test ))[1];
+    $link =~ s,/,_,g;
+    ++ $rescount{$status};
+
+    unless ( $cat eq $lastcat )
+    {
+        $table .= "</td></tr>" if ( $lastcat );
+        $table .= qq(<tr><td class="test-name"><div>$cat</div></td>);
+        $table .= qq(<td class="test test-compact"><div>);
+    }
+    $table .= qq(<a title="$test" class="test test-$status" href="./test/$link">$schar</a>&#8203;);
+    $lastcat = $cat;
+}
+
+my @summary = map { qq(<span class="test-$_">$rescount{$_} $_</span>) } ( keys %rescount );
+my $summary = join ", ", @summary;
+
+print qq(<p>summary: $summary</p>);
+print qq(<div class="test-compact"><table class="test test-compact">);
+print $table;
+print qq(</table></div>);