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
|
#! perl
use strict;
use warnings;
use Test::More 0.88;
use CPAN::Meta 2.120920;
use CPAN::Meta::Check qw/check_requirements verify_dependencies/;
use Module::Metadata;
use Scalar::Util ();
use Env ();
my $scalar_version = Module::Metadata->new_from_module('Scalar::Util')->version;
my %prereq_struct = (
runtime => {
requires => {
'Config' => 0,
'File::Spec' => 0,
'IO::File' => 0,
'perl' => '5.005_03',
},
recommends => {
'Pod::Text' => 0,
'This::Should::Be::NonExistent' => 1,
Env => 99999,
},
conflicts => {
'CPAN::Meta' => '<= 100.0', # check should fail
'Scalar::Util' => "== $scalar_version", # check should fail
'Test::More' => '<= 0.01', # check should pass (up to 0.01 is bad)
},
},
build => {
requires => {
'Test' => 0,
},
},
);
my $meta = CPAN::Meta->create({ prereqs => \%prereq_struct, version => 1, name => 'Foo' }, { lazy_validation => 1 });
is_deeply([ verify_dependencies($meta, 'runtime', 'requires') ], [], 'Requirements are verified');
my $pre_req = $meta->effective_prereqs->requirements_for('runtime', 'requires');
is($pre_req->required_modules, 4, 'Requires 4 modules');
is_deeply(check_requirements($pre_req, 'requires'), { map { ( $_ => undef ) } qw/Config File::Spec IO::File perl/ }, 'Requirements are satisfied ');
my $pre_rec = $meta->effective_prereqs->requirements_for('runtime', 'recommends');
is_deeply([ sort +$pre_rec->required_modules ], [ qw/Env Pod::Text This::Should::Be::NonExistent/ ], 'The right recommendations are present');
is_deeply(check_requirements($pre_rec, 'recommends'), {
Env => "Installed version ($Env::VERSION) of Env is not in range '99999'",
'Pod::Text' => undef,
'This::Should::Be::NonExistent' => 'Module \'This::Should::Be::NonExistent\' is not installed',
}, 'Recommendations give the right errors');
my $pre_con = $meta->effective_prereqs->requirements_for('runtime', 'conflicts');
is_deeply([ sort +$pre_con->required_modules ], [ qw/CPAN::Meta Scalar::Util Test::More/ ], 'The right conflicts are present');
is_deeply(check_requirements($pre_con, 'conflicts'), {
'CPAN::Meta' => "Installed version ($CPAN::Meta::VERSION) of CPAN::Meta is in range '<= 100.0'",
'Test::More' => undef,
'Scalar::Util' => sprintf("Installed version (%s) of Scalar::Util is in range '== %s'", $scalar_version, $scalar_version),
}, 'Conflicts give the right errors');
done_testing();
# vi:noet:sts=2:sw=2:ts=2
|
