Start of a real report generation suite
This commit is contained in:
Your Name
parent
8a3aef3ddc
commit
9a8857203b
4 changed files with 191105 additions and 0 deletions
190929
reports/02packages.details.txt
Normal file
190929
reports/02packages.details.txt
Normal file
File diff suppressed because it is too large
Load diff
61
reports/failed.pl
Executable file
61
reports/failed.pl
Executable file
|
|
@ -0,0 +1,61 @@
|
||||||
|
#!/usr/bin/env perl
|
||||||
|
|
||||||
|
use v5.24.0;
|
||||||
|
use strict;
|
||||||
|
#use warnings;
|
||||||
|
|
||||||
|
use Data::Dumper;
|
||||||
|
use Storable;
|
||||||
|
use lib '../lib';
|
||||||
|
use Dist;
|
||||||
|
use Template;
|
||||||
|
|
||||||
|
my $data = retrieve '../everything.stor';
|
||||||
|
|
||||||
|
my $tested_count =()= grep {exists $data->{jobstatus}{$_}{tested}} keys $data->{jobstatus}->%*;
|
||||||
|
my $inc_count =()= grep {$data->{jobstatus}{$_}{status} =~ /inc/} keys $data->{jobstatus}->%*;
|
||||||
|
my $gen_count =()= grep {$data->{jobstatus}{$_}{status} =~ /gen/} keys $data->{jobstatus}->%*;
|
||||||
|
my $dists = 37410;
|
||||||
|
|
||||||
|
my $percent = sprintf "%02.02f%%", $tested_count/$dists * 100;
|
||||||
|
my $inc_percent = sprintf "~%02.02f%%", $inc_count/$tested_count * 100;
|
||||||
|
my $gen_percent = sprintf "~%02.02f%%", $gen_count/$tested_count * 100;
|
||||||
|
|
||||||
|
my @mods;
|
||||||
|
|
||||||
|
for my $mod ($data->{modules}->@*) {
|
||||||
|
my ($tested, $status) = $data->{jobstatus}{$mod}->@{qw/tested status/};
|
||||||
|
$tested = !!$tested ? "yes" : "no";
|
||||||
|
$status //= "";
|
||||||
|
|
||||||
|
my $log = "";
|
||||||
|
if ($status && $status ne 'success') {
|
||||||
|
my $failure = $status =~ /inc/ ? 'incfailure' : 'genfailure';
|
||||||
|
$log = "<a href='/logs/${mod}_$failure.log'>here</a>"
|
||||||
|
}
|
||||||
|
|
||||||
|
my $author = Dist::get_author($mod);
|
||||||
|
|
||||||
|
push @mods, {
|
||||||
|
name => $mod,
|
||||||
|
author => $author,
|
||||||
|
status => $status,
|
||||||
|
tested => $tested,
|
||||||
|
dist => $Dist::mod_to_dist{$mod} // $mod,
|
||||||
|
log => $log
|
||||||
|
};
|
||||||
|
}
|
||||||
|
|
||||||
|
my $vars = {
|
||||||
|
modules => \@mods,
|
||||||
|
percent => $percent,
|
||||||
|
inc_percent => $inc_percent,
|
||||||
|
gen_percent => $gen_percent,
|
||||||
|
dists => $dists,
|
||||||
|
tested_count => $tested_count,
|
||||||
|
inc_count => $inc_count,
|
||||||
|
gen_count => $gen_count,
|
||||||
|
};
|
||||||
|
|
||||||
|
my $tt = Template->new();
|
||||||
|
$tt->process('template.tt.html', $vars);
|
||||||
61
reports/make_testhtml.pl
Executable file
61
reports/make_testhtml.pl
Executable file
|
|
@ -0,0 +1,61 @@
|
||||||
|
#!/usr/bin/env perl
|
||||||
|
|
||||||
|
use v5.24.0;
|
||||||
|
use strict;
|
||||||
|
#use warnings;
|
||||||
|
|
||||||
|
use Data::Dumper;
|
||||||
|
use Storable;
|
||||||
|
use lib '../lib';
|
||||||
|
use Dist;
|
||||||
|
use Template;
|
||||||
|
|
||||||
|
my $data = retrieve '../everything.stor';
|
||||||
|
|
||||||
|
my $tested_count =()= grep {exists $data->{jobstatus}{$_}{tested}} keys $data->{jobstatus}->%*;
|
||||||
|
my $inc_count =()= grep {$data->{jobstatus}{$_}{status} =~ /inc/} keys $data->{jobstatus}->%*;
|
||||||
|
my $gen_count =()= grep {$data->{jobstatus}{$_}{status} =~ /gen/} keys $data->{jobstatus}->%*;
|
||||||
|
my $dists = 37410;
|
||||||
|
|
||||||
|
my $percent = sprintf "%02.02f%%", $tested_count/$dists * 100;
|
||||||
|
my $inc_percent = sprintf "~%02.02f%%", $inc_count/$tested_count * 100;
|
||||||
|
my $gen_percent = sprintf "~%02.02f%%", $gen_count/$tested_count * 100;
|
||||||
|
|
||||||
|
my @mods;
|
||||||
|
|
||||||
|
for my $mod ($data->{modules}->@*) {
|
||||||
|
my ($tested, $status) = $data->{jobstatus}{$mod}->@{qw/tested status/};
|
||||||
|
$tested = !!$tested ? "yes" : "no";
|
||||||
|
$status //= "";
|
||||||
|
|
||||||
|
my $log = "";
|
||||||
|
if ($status && $status ne 'success') {
|
||||||
|
my $failure = $status =~ /inc/ ? 'incfailure' : 'genfailure';
|
||||||
|
$log = "<a href='/logs/${mod}_$failure.log'>here</a>"
|
||||||
|
}
|
||||||
|
|
||||||
|
my $author = Dist::get_author($mod);
|
||||||
|
|
||||||
|
push @mods, {
|
||||||
|
name => $mod,
|
||||||
|
author => $author,
|
||||||
|
status => $status,
|
||||||
|
tested => $tested,
|
||||||
|
dist => $Dist::mod_to_dist{$mod} // $mod,
|
||||||
|
log => $log
|
||||||
|
};
|
||||||
|
}
|
||||||
|
|
||||||
|
my $vars = {
|
||||||
|
modules => \@mods,
|
||||||
|
percent => $percent,
|
||||||
|
inc_percent => $inc_percent,
|
||||||
|
gen_percent => $gen_percent,
|
||||||
|
dists => $dists,
|
||||||
|
tested_count => $tested_count,
|
||||||
|
inc_count => $inc_count,
|
||||||
|
gen_count => $gen_count,
|
||||||
|
};
|
||||||
|
|
||||||
|
my $tt = Template->new();
|
||||||
|
$tt->process('template.tt.html', $vars);
|
||||||
54
reports/template.tt.html
Executable file
54
reports/template.tt.html
Executable file
|
|
@ -0,0 +1,54 @@
|
||||||
|
<html><head>
|
||||||
|
<style>
|
||||||
|
.tested_no {
|
||||||
|
color: #777;
|
||||||
|
}
|
||||||
|
.tested_no a {
|
||||||
|
color: #77F;
|
||||||
|
}
|
||||||
|
|
||||||
|
.status_gen {
|
||||||
|
background-color: #FF0;
|
||||||
|
}
|
||||||
|
|
||||||
|
.status_inc {
|
||||||
|
background-color: #F00;
|
||||||
|
}
|
||||||
|
|
||||||
|
.status_success {
|
||||||
|
background-color: #0F0;
|
||||||
|
}
|
||||||
|
|
||||||
|
table, th, td {
|
||||||
|
border: 1px solid black;
|
||||||
|
border-collapse: collapse;
|
||||||
|
}
|
||||||
|
tr:nth-child(even) {
|
||||||
|
background-color: #CCC;
|
||||||
|
}
|
||||||
|
tr:nth-child(odd) {
|
||||||
|
background-color: #EEE;
|
||||||
|
}
|
||||||
|
</style>
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<table>
|
||||||
|
<thead style="font-weight: bold">
|
||||||
|
<th>Module</th><th>Tested?</th><th>results</span></th><th>Author</th><th>log</th>
|
||||||
|
</thead>
|
||||||
|
<tr><td>37410</td><td>[% tested_count %] ([% percent %])</td>
|
||||||
|
<td><span style="background-color: #F00">[% inc_count %] [% inc_percent %]</span> / <span style="background-color: #FF0">[% gen_count %] [% gen_percent %]</span></td><td></td><td></td>
|
||||||
|
</tr>
|
||||||
|
|
||||||
|
[% FOR module IN modules %]
|
||||||
|
<tr class="tested_[% module.tested %]">
|
||||||
|
<td style="padding-left: 10px;"><a href="https://metacpan.org/pod/[% module.dist %]">[% module.dist %]</a></td>
|
||||||
|
<td>[% module.tested %]</td>
|
||||||
|
<td class="status_[%module.status%]">[%module.status%]</td>
|
||||||
|
<td>[% module.author %]</td>
|
||||||
|
<td>[% module.log %]</td>
|
||||||
|
</tr>
|
||||||
|
[% END %]
|
||||||
|
</table>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
Loading…
Add table
Reference in a new issue