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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
#! perl
use strict;
use warnings;
use Test::More;
use CPAN::Meta;
use CPAN::Meta::Merge;
my %base = (
abstract => 'This is a test',
author => ['A.U. Thor'],
generated_by => 'Myself',
license => [ 'perl_5' ],
resources => {
license => [ 'http://dev.perl.org/licenses/' ],
},
prereqs => {
runtime => {
requires => {
Foo => '0',
},
},
},
dynamic_config => 0,
provides => {
Baz => {
file => 'lib/Baz.pm',
},
},
'meta-spec' => {
url => "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
version => 2,
},
);
my %first = (
author => [ 'I.M. Poster' ],
generated_by => 'Some other guy',
license => [ 'bsd' ],
resources => {
license => [ 'http://opensource.org/licenses/bsd-license.php' ],
},
prereqs => {
runtime => {
requires => {
Foo => '< 1',
},
recommends => {
Bar => '3.14',
},
},
test => {
requires => {
'Test::Bar' => 0,
},
},
},
dynamic_config => 1,
provides => {
Quz => {
file => 'lib/Quz.pm',
},
},
);
my %first_expected = (
abstract => 'This is a test',
author => [ 'A.U. Thor', 'I.M. Poster' ],
generated_by => 'Myself, Some other guy',
license => [ 'perl_5', 'bsd' ],
resources => {
license => [ 'http://dev.perl.org/licenses/', 'http://opensource.org/licenses/bsd-license.php' ],
},
prereqs => {
runtime => {
requires => {
Foo => '>= 0, < 1',
},
recommends => {
Bar => '3.14',
},
},
test => {
requires => {
'Test::Bar' => 0,
},
},
},
provides => {
Baz => {
file => 'lib/Baz.pm',
},
Quz => {
file => 'lib/Quz.pm',
},
},
dynamic_config => 1,
'meta-spec' => {
url => "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
version => 2,
},
);
my $merger = CPAN::Meta::Merge->new(default_version => '2');
my $first_result = $merger->merge(\%base, \%first);
is_deeply($first_result, \%first_expected, 'First result is as expected');
is_deeply($merger->merge(\%base, { abstract => 'This is a test' }), \%base, 'Can merge in identical abstract');
my $failure = eval { $merger->merge(\%base, { abstract => 'And now for something else' }) };
is($failure, undef, 'Trying to merge different author gives an exception');
like $@, qr/^Can't merge attribute abstract /, 'Exception looks right';
my $failure2 = eval { $merger->merge(\%base, { provides => { Baz => { file => 'Baz.pm' } } }) };
is($failure2, undef, 'Trying to merge different author gives an exception');
like $@, qr/^Duplication of element provides\.Baz /, 'Exception looks right';
# issue 67
@base{qw/name version release_status/} = qw/Foo-Bar 0.01 testing/;
my $base_obj = CPAN::Meta->create(\%base);
ok my $first_result_obj = $merger->merge($base_obj, \%first), 'merging CPAN::Meta objects succeeds';
done_testing();
|
