Cairo Test Results

#!/usr/bin/perl # # Copyright © 2005 Mozilla Corporation # # Permission to use, copy, modify, distribute, and sell this software # and its documentation for any purpose is hereby granted without # fee, provided that the above copyright notice appear in all copies # and that both that copyright notice and this permission notice # appear in supporting documentation, and that the name of # Mozilla Corporation not be used in advertising or publicity pertaining to # distribution of the software without specific, written prior # permission. Mozilla Corporation makes no representations about the # suitability of this software for any purpose. It is provided "as # is" without express or implied warranty. # # MOZILLA CORPORTAION DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS # SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND # FITNESS, IN NO EVENT SHALL MOZILLA CORPORATION BE LIABLE FOR ANY SPECIAL, # INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER # RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION # OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR # IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. # # Author: Vladimir Vukicevic # ## ## Takes all the *.log files in the current directory (or those provided ## on the command line) and spits out html to stdout that can be used to ## view all the test results at once. ## # 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 = {}; if ($#ARGV >= 0) { @files = @ARGV; } else { @files = <*.log>; } foreach (<@files>) { (open LOG, "$_") || next; while () { next unless /^TEST: (.*) TARGET: (.*) FORMAT: (.*) OFFSET: (.*) RESULT: (.*)$/; $tests->{$1} = {} unless $tests->{$1}; $tests->{$1}->{$2} = {} unless $tests->{$1}->{$2}; $tests->{$1}->{$2}->{$3} = {} unless $tests->{$1}->{$2}->{$3}; $tests->{$1}->{$2}->{$3}->{$4} = $5; $teststats->{$2} = {"PASS" => 0, "FAIL" => 0, "XFAIL" => 0, "UNTESTED" => 0, "CRASHED" =>0} unless $teststats->{$2}; ($teststats->{$2}->{$5})++; } close LOG; } my $targeth = {}; my $formath = {}; my $offseth = {}; foreach my $testname (sort(keys %$tests)) { my $v0 = $tests->{$testname}; foreach my $targetname (sort(keys %$v0)) { my $v1 = $v0->{$targetname}; $targeth->{$targetname} = 1; foreach my $formatname (sort(keys %$v1)) { my $v2 = $v1->{$formatname}; $formath->{$formatname} = 1; foreach my $offsetval (sort(keys %$v2)) { $offseth->{$offsetval} = 1; } } } } my @targets = sort(keys %$targeth); my @formats = sort(keys %$formath); my @offsets = sort(keys %$offseth); sub printl { print @_, "\n"; } printl ''; printl 'Cairo Test Results'; printl ''; printl ''; printl ''; print ''; print '' if $config_show_ref; foreach my $target (@targets) { print ''; } printl ''; print ''; print '' if $config_show_ref; foreach my $target (@targets) { print ''; } printl ''; sub testref { my ($test, $format, $rest) = @_; my $fmtstr = ""; if ($format eq "rgb24") { $fmtstr = "-rgb24"; } return "$test$fmtstr-ref.png"; } sub testfiles { my ($test, $target, $format, $offset, $rest) = @_; my $fmtstr = ""; my $offstr = ""; if ($format eq "rgb24") { $fmtstr = "-rgb24"; } elsif ($format eq "argb32") { $fmtstr = "-argb32"; } if ($offset ne "0") { $offstr = "-" . $offset; } return ("out" => "$test-$target$fmtstr$offstr-out.png", "diff" => "$test-$target$fmtstr$offstr-diff.png"); } foreach my $test (sort(keys %$tests)) { foreach my $offset (@offsets) { foreach my $format (@formats) { my $testline = ""; foreach my $target (@targets) { my $tgtdata = $tests->{$test}->{$target}; if ($tgtdata) { my $testres = $tgtdata->{$format}->{$offset}; if ($testres) { my %testfiles = testfiles($test, $target, $format, $offset); $testline .= ""; } else { $testline .= ''; } } else { $testline .= ''; } } my $testref = testref($test, $format); print ''; if ($config_show_ref) { print ""; } print $testline; print "\n"; } } } print "

Test	Ref	', $target, '
		'; print '', $teststats->{$target}->{"PASS"}, '/'; print '', $teststats->{$target}->{"FAIL"} + $teststats->{$target}->{"CRASHED"}, '/'; print '', $teststats->{$target}->{"XFAIL"}, '/'; print '', $teststats->{$target}->{"UNTESTED"}; ''; print '
"; $stats{$target}{$testres}++; if ($testres eq "PASS") { if ($config_show_all) { $testline .= ""; } } elsif ($testres eq "FAIL") { if ($config_show_fail \|\| $config_show_all) { $testline .= ""; #$testline .= " "; $testline .= " "; $testline .= ""; } } elsif ($testres eq "CRASHED") { $testline .= "!!!CRASHED!!!"; } elsif ($testres eq "XFAIL") { #nothing if ($config_show_all) { $testline .= ""; #$testline .= " "; $testline .= " "; $testline .= ""; } } elsif ($testres eq "UNTESTED") { #nothing } else { $testline .= "UNSUPPORTED STATUS (update make-html.pl)"; } $testline .= "
', "", $test, ' (', $format, '/', $offset, ')', "(log)", '

\n";