1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
#!perl
use strict;
use warnings;
use Test::More;
# Prereqs-testing for File::ShareDir
BEGIN
{
if (!eval { require CPAN::Meta; 1 })
{
plan skip_all => "Need CPAN::Meta for this test";
}
}
my $meta = CPAN::Meta->load_file(-d "xt" ? "MYMETA.json" : "META.json");
my $prereqs = $meta->effective_prereqs;
my %dups;
my %report;
my %len = (
module => length("module"),
want => length("wanted"),
have => length("missing")
);
foreach my $phase (qw/configure build runtime test/, (-d "xt" ? "develop" : ()))
{
foreach my $severity (qw/requires recommends suggests/)
{
my $reqs = $prereqs->requirements_for($phase, $severity);
my @modules = sort $reqs->required_modules;
@modules or next;
$len{module} < length(" $phase / $severity ") and $len{module} = length(" $phase / $severity ");
for my $module (@modules)
{
my $want = $reqs->{requirements}->{$module}->{minimum}->{original};
defined $dups{$module} and $dups{$module} >= $want and next;
$len{module} < length($module) and $len{module} = length($module);
$dups{$module} = $want;
$len{want} < length($want) and $len{want} = length($want);
local $TODO = $severity eq "requires" ? undef : $severity;
if (eval { require_ok($module) unless $module eq 'perl'; 1 })
{
my $version = $module eq 'perl' ? $] : $module->VERSION;
my $status;
if (defined $version)
{
$len{have} < length($version) and $len{have} = length($version);
my $ok = ok($reqs->accepts_module($module, $version), "$module matches required $version");
$status = $ok ? "ok" : "not ok";
}
else
{
$status = "not ok";
$version = "n/a";
}
$report{$phase}{$severity}{$module} = {
want => $want,
have => $version,
status => $status
};
}
else
{
$report{$phase}{$severity}{$module} = {
want => $want,
have => "undef",
status => "missing"
};
}
}
}
}
diag sprintf("Requirements for %s version %s", $meta->name, $meta->version);
my $fmt_str = " %$len{module}s | %$len{have}s | %$len{want}s | %s";
my $sep_str = "-%$len{module}s-+-%$len{have}s-+-%$len{want}s-+---------";
diag(sprintf($fmt_str, qw(module version wanted status)));
foreach my $phase (qw/configure build runtime test/, (-d "xt" ? "develop" : ()))
{
foreach my $severity (qw/requires recommends suggests/)
{
scalar keys %{$report{$phase}{$severity}} or next;
my $cap = " $phase / $severity ";
$cap .= "-" x ($len{module} - length($cap));
diag(sprintf($sep_str, $cap, "-" x $len{have}, "-" x $len{want}));
foreach my $module (sort keys %{$report{$phase}{$severity}})
{
my ($have, $want, $status) = @{$report{$phase}{$severity}{$module}}{qw(have want status)};
diag(sprintf($fmt_str, $module, $have, $want, $status));
}
}
}
diag(sprintf($sep_str, "-" x $len{module}, "-" x $len{have}, "-" x $len{want}));
done_testing;
|
