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
|
use strict;
use warnings;
use CPAN::Meta::Requirements;
use Test::More 0.88;
sub dies_ok (&@) {
my ($code, $qr, $comment) = @_;
my $lived = eval { $code->(); 1 };
if ($lived) {
fail("$comment: did not die");
} else {
like($@, $qr, $comment);
}
}
{
my $req = CPAN::Meta::Requirements->new;
$req->add_minimum('Foo::Bar' => 10);
$req->add_minimum('Foo::Bar' => 0);
$req->add_minimum('Foo::Bar' => 2);
$req->add_minimum('Foo::Baz' => version->declare('v1.2.3'));
$req->add_minimum('Foo::Undef' => undef);
my $want = {
'Foo::Bar' => 10,
'Foo::Baz' => 'v1.2.3',
'Foo::Undef' => 0,
};
is_deeply(
$req->as_string_hash,
$want,
"some basic minimums",
);
$req->finalize;
$req->add_minimum('Foo::Bar', 2);
pass('we can add a Foo::Bar requirement with no effect post finalization');
dies_ok { $req->add_minimum('Foo::Bar', 12) }
qr{finalized req},
"can't add a higher Foo::Bar after finalization";
dies_ok { $req->add_minimum('Foo::New', 0) }
qr{finalized req},
"can't add a new module prereq after finalization";
dies_ok { $req->clear_requirement('Foo::Bar') }
qr{finalized req},
"can't clear an existing prereq after finalization";
$req->clear_requirement('Bogus::Req');
pass('we can clear a prereq that was not set to begin with');
is_deeply(
$req->as_string_hash,
$want,
"none of our attempts to alter the object post-finalization worked",
);
my $cloned = $req->clone;
$cloned->add_minimum('Foo::Bar', 12);
is_deeply(
$cloned->as_string_hash,
{
%$want,
'Foo::Bar' => 12,
},
"we can alter a cloned V:R (finalization does not survive cloning)",
);
is_deeply(
$req->as_string_hash,
$want,
"...and original requirements are untouched",
);
}
done_testing;
|
