Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

107 lines (91 sloc) 1.983 kb
use strict;
use warnings;
use Test::More 0.88;
use CPAN::Meta::Prereqs;
delete $ENV{$_} for qw/PERL_JSON_BACKEND PERL_YAML_BACKEND/; # use defaults
my $prereq_struct_1 = {
runtime => {
requires => {
'Config' => 0,
'Cwd' => 0,
'perl' => '5.005_03',
},
recommends => {
'Pod::Text' => 0,
'YAML' => 0.35,
},
},
build => {
requires => {
'Test' => 0,
},
}
};
my $prereq_1 = CPAN::Meta::Prereqs->new($prereq_struct_1);
isa_ok($prereq_1, 'CPAN::Meta::Prereqs', 'first prereq');
is_deeply($prereq_1->as_string_hash, $prereq_struct_1, '...and it round trips');
my $prereq_struct_2 = {
develop => {
requires => {
'Dist::Mothra' => '1.230',
},
suggests => {
'Blort::Blortex' => '== 10.20',
},
},
runtime => {
requires => {
'Config' => 1,
'perl' => '< 6',
},
},
build => {
suggests => {
'Module::Build::Bob' => '20100101',
},
}
};
my $prereq_2 = CPAN::Meta::Prereqs->new($prereq_struct_2);
isa_ok($prereq_2, 'CPAN::Meta::Prereqs', 'second prereq');
is_deeply($prereq_1->as_string_hash, $prereq_struct_1, '...and it round trips');
my $merged = $prereq_1->with_merged_prereqs($prereq_2);
my $want = {
develop => {
requires => {
'Dist::Mothra' => '1.230',
},
suggests => {
'Blort::Blortex' => '== 10.20',
},
},
runtime => {
requires => {
'Config' => 1,
'Cwd' => 0,
'perl' => '>= 5.005_03, < 6',
},
recommends => {
'Pod::Text' => 0,
'YAML' => 0.35,
},
},
build => {
requires => {
'Test' => 0,
},
suggests => {
'Module::Build::Bob' => '20100101',
},
},
};
is_deeply(
$merged->as_string_hash,
$want,
"we get the right result of merging two prereqs",
);
is_deeply(
$prereq_2->with_merged_prereqs($prereq_1)->as_string_hash,
$want,
"...and the merge works the same in reverse",
);
done_testing;
Jump to Line
Something went wrong with that request. Please try again.