fdo-mirrors/cairo
1
0
Fork 0
mirror of https://gitlab.freedesktop.org/cairo/cairo.git synced 2026-02-09 05:00:32 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Clean up output some; show only images that fail, otherwise just show pass/fail squares.

Browse source
This commit is contained in:
Vladimir Vukicevic 2006-01-03 07:29:57 +00:00
parent 71369489d8
commit bd265e008b
2 changed files with 68 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
2006-01-03 Vladimir Vukicevic <vladimir@pobox.com>
* test/make-html.pl: Clean up output some; show only images that
fail, otherwise just show pass/fail squares.
2005-12-30 Emmanuel Pacaud <emmanuel.pacaud@free.fr>
* src/cairo-svg-surface.c (_cairo_svg_surface_create_for_document): no

81
test/make-html.pl
View file

@ -29,6 +29,19 @@
## html to stdout that can be used to view all the test results at once.
##
# some config options:
# show reference images
my $config_show_ref = 0;
# show fail images
my $config_show_fail = 1;
# show all results, even passes
my $config_show_all = 0;
# end of config options
my $tests = {};
my $teststats = {};
@ -73,29 +86,38 @@ sub printl {
printl '<html><head>';
printl '<title>Cairo Test Results</title>';
printl '<style type="text/css">';
printl '.PASS { border: 2px solid #009900; background-color: #999999; }';
printl 'a img { border: none; }';
printl '.PASS { background-color: #009900; min-width: 1em; }';
printl '.FAIL { background-color: #990000; }';
printl '.XFAIL { background-color: #999900; }';
printl '.UNTESTED { background-color: #333333; }';
printl '.PASSstr { color: #009900; }';
printl '.FAILstr { color: #990000; }';
printl '.XFAILstr { color: #999900; }';
printl '.UNTESTEDstr { color: #333333; }';
printl 'img { max-width: 15em; min-width: 3em; }';
printl 'td { vertical-align: top; }';
printl '</style>';
printl '<body>';
printl '<table border="1">';
print '<tr><th>Test</th><th>Ref</th>';
print '<tr><th>Test</th>';
print '<th>Ref</th>' if $config_show_ref;
foreach my $target (@targets) {
print '<th>', $target, '</th>';
}
printl '</tr>';
print '<tr><td></td><td></td>';
print '<tr><td></td>';
print '<td></td>' if $config_show_ref;
foreach my $target (@targets) {
print '<td>';
print 'PASS: ', $teststats->{$target}->{"PASS"}, '<br>';
print 'FAIL: ', $teststats->{$target}->{"FAIL"}, '<br>';
print 'XFAIL: ', $teststats->{$target}->{"XFAIL"}, '<br>';
print 'UNTESTED: ', $teststats->{$target}->{"UNTESTED"};
print '<span class="PASSstr">', $teststats->{$target}->{"PASS"}, '</span>/';
print '<span class="FAILstr">', $teststats->{$target}->{"FAIL"}, '</span>/';
print '<span class="XFAILstr">', $teststats->{$target}->{"XFAIL"}, '</span>/';
print '<span class="UNTESTEDstr">', $teststats->{$target}->{"UNTESTED"}; '</span>';
print '</td>';
}
printl '</tr>';
@ -125,10 +147,9 @@ sub testfiles {
foreach my $test (sort(keys %$tests)) {
foreach my $format (@formats) {
print '<tr><td>', $test, ' (', $format, ')</td>';
my $testline = "";
my $testref = testref($test, $format);
print "<td><img src=\"$testref\"></td>";
my $num_failed = 0;
foreach my $target (@targets) {
my $tgtdata = $tests->{$test}->{$target};
@ -136,23 +157,47 @@ foreach my $test (sort(keys %$tests)) {
my $testres = $tgtdata->{$format};
if ($testres) {
my %testfiles = testfiles($test, $target, $format);
print "<td class=\"$testres\">";
$testline .= "<td class=\"$testres\">";
$stats{$target}{$testres}++;
if ($testres eq "PASS") {
print "<img src=\"", $testfiles{"out"}, "\"></td>";
} elsif ($testres eq "FAIL" || $testres eq "XFAIL") {
print "<img src=\"", $testfiles{"out"}, "\"><br><hr size=\"1\">";
print "<img src=\"", $testfiles{"diff"}, "\">";
if ($config_show_all) {
$testline .= "<a href=\"" . $testfiles{"out"} . "\"><img src=\"" . $testfiles{"out"} . "\"></a>";
}
} elsif ($testres eq "FAIL") {
$num_failed++;
if ($config_show_fail || $config_show_all) {
$testline .= "<a href=\"" . $testfiles{"out"} . "\"><img src=\"" . $testfiles{"out"} . "\"></a>";
$testline .= "<hr size=\"1\">";
$testline .= "<a href=\"" . $testfiles{"diff"} . "\"><img src=\"" . $testfiles{"diff"} . "\"></a>";
}
} elsif ($testres eq "XFAIL") {
#nothing
if ($config_show_all) {
$testline .= "<a href=\"" . $testfiles{"out"} . "\"><img src=\"" . $testfiles{"out"} . "\"></a>";
$testline .= "<hr size=\"1\">";
$testline .= "<a href=\"" . $testfiles{"diff"} . "\"><img src=\"" . $testfiles{"diff"} . "\"></a>";
}
}
print "</td>";
$testline .= "</td>";
} else {
print '<td></td>';
$testline .= '<td></td>';
}
} else {
print '<td></td>';
$testline .= '<td></td>';
}
}
my $testref = testref($test, $format);
print '<tr><td>', "<a href=\"$testref\">", $test, ' (', $format, ')</a></td>';
if ($config_show_ref) {
print "<td><a href=\"$testref\"><img src=\"$testref\"></img></a></td>";
}
print $testline;
print "</tr>\n";
}
}