Alexandre Julliard : winetest: Build per-test global summaries over all available builds.
Module: tools Branch: master Commit: b3aab8612d1acb367dc05b78036baf90a115e0c2 URL: http://source.winehq.org/git/tools.git/?a=commit;h=b3aab8612d1acb367dc05b780...
Author: Alexandre Julliard julliard@winehq.org Date: Fri Aug 1 15:35:20 2008 +0200
winetest: Build per-test global summaries over all available builds.
---
winetest/build-index | 98 ++++++++++++++++++++++++++++++++++++++++++++++++++ winetest/summary.css | 4 +- 2 files changed, 100 insertions(+), 2 deletions(-)
diff --git a/winetest/build-index b/winetest/build-index index 77fb157..cf4f4fc 100755 --- a/winetest/build-index +++ b/winetest/build-index @@ -99,6 +99,104 @@ foreach my $build (@builds) $build->{versions} = %build_ver; }
+# load summary files + +my %alltests = (); + +foreach my $build (@builds) +{ + open SUM, "./data/$build->{name}/summary.txt" or next; + while (<SUM>) + { + chomp; + my ($test, $group, $cell) = split / +/, $_, 3; + $alltests{$test}->{$build->{name}}->{$group} = $cell; + } + close SUM; +} + +# build the tests linked list + +my $prev; +foreach my $test (sort keys %alltests) +{ + $alltests{$test}->{prev} = "$prev.html" if $prev; + $alltests{$prev}->{next} = "$test.html" if $prev; + $prev = $test; +} + +# output the html files for individual test runs + +foreach my $test (keys %alltests) +{ + open OUT, ">data/tests/$test.html.new" or die "cannot create data/tests/$test.html.new"; + print OUT <<EOF; +<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" + "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> + <title>$test test runs</title> + <link rel="stylesheet" href="/summary.css" type="text/css"> + <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> +</head> +<body> +<div class="navbar"> +EOF + print OUT defined($alltests{$test}->{prev}) ? "<a href="./$alltests{$test}->{prev}">prev</a>" : "prev"; + print OUT defined($alltests{$test}->{next}) ? " | <a href="./$alltests{$test}->{next}">next</a>" : " | next"; + print OUT <<EOF; + | <a href="..">index</a> +<script type="text/javascript" src="/summary.js"></script> +</div> +<div class="main"> +<h2>$test test runs</h2> +<table class="report"> +<thead> + <tr><th class="test">Build</th><th class="test">Date</th> +EOF + + # check which group names are actually used by that test + my %used_group; + foreach my $build (@builds) + { + next unless defined $alltests{$test}->{$build->{name}}; + foreach my $group (keys %{$alltests{$test}->{$build->{name}}}) { $used_group{$group} = 1; } + } + + foreach my $group (@groups) + { + next unless defined $used_group{$group->{name}}; + printf OUT " <th class="test">$group->{name}</th>\n"; + } + print OUT " <th class="test"></th></tr>\n"; + foreach my $build (@builds) + { + next unless defined $alltests{$test}->{$build->{name}}; + printf OUT " <tr><td class="build"><a href="../%s" title="%s">%s</a></td>\n", + $build->{name}, $build->{name}, substr($build->{name},0,12); + my @date = gmtime($build->{date}); + printf OUT " <td class="date">%02d-%s-%04d %02d:%02d</td>", + $date[3], $months[$date[4]], $date[5] + 1900, $date[2], $date[1], $date[0]; + foreach my $group (@groups) + { + next unless defined $used_group{$group->{name}}; + if (defined $alltests{$test}->{$build->{name}}->{$group->{name}}) + { + printf OUT " %s\n", $alltests{$test}->{$build->{name}}->{$group->{name}}; + } + else + { + print OUT " <td class="note"></td>\n"; + } + } + print OUT " <td class="links"><a href="$gitweb?a=shortlog;h=$build->{name}">shortlog</a>"; + print OUT " | <a href="../$build->{name}">all tests</a></td></tr>\n"; + } + print OUT "</table></body></html>\n"; + close OUT; + rename "data/tests/$test.html.new", "data/tests/$test.html" or unlink "data/tests/$test.html.new"; +} + open OUT, ">data/index.html.new" or die "cannot create data/index.html.new";
print OUT <<"EOF"; diff --git a/winetest/summary.css b/winetest/summary.css index 9ce7f77..ae4b31f 100644 --- a/winetest/summary.css +++ b/winetest/summary.css @@ -143,8 +143,8 @@ table.report td.vis_note :link, table.report td.vis_note :visited { table.report td.test { text-align: left; } -table.report td a { - display: block; +table.report td.links { + font-size: x-small; } form td { text-align: left;
-
Alexandre Julliard