Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

137 lines (112 sloc) 2.593 kB
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_1 = CPAN::Meta::Requirements->new;
$req_1->add_minimum(Left => 10);
$req_1->add_minimum(Shared => 2);
$req_1->add_exclusion(Shared => 7);
my $req_2 = CPAN::Meta::Requirements->new;
$req_2->add_minimum(Shared => 1);
$req_2->add_maximum(Shared => 9);
$req_2->add_minimum(Right => 18);
$req_1->add_requirements($req_2);
is_deeply(
$req_1->as_string_hash,
{
Left => 10,
Shared => '>= 2, <= 9, != 7',
Right => 18,
},
"add requirements to an existing set of requirements",
);
}
{
my $req_1 = CPAN::Meta::Requirements->new;
$req_1->add_minimum(Left => 10);
$req_1->add_minimum(Shared => 2);
$req_1->add_exclusion(Shared => 7);
$req_1->exact_version(Exact => 8);
my $req_2 = CPAN::Meta::Requirements->new;
$req_2->add_minimum(Shared => 1);
$req_2->add_maximum(Shared => 9);
$req_2->add_minimum(Right => 18);
$req_2->exact_version(Exact => 8);
my $clone = $req_1->clone->add_requirements($req_2);
is_deeply(
$req_1->as_string_hash,
{
Left => 10,
Shared => '>= 2, != 7',
Exact => '== 8',
},
"clone/add_requirements does not affect lhs",
);
is_deeply(
$req_2->as_string_hash,
{
Shared => '>= 1, <= 9',
Right => 18,
Exact => '== 8',
},
"clone/add_requirements does not affect rhs",
);
is_deeply(
$clone->as_string_hash,
{
Left => 10,
Shared => '>= 2, <= 9, != 7',
Right => 18,
Exact => '== 8',
},
"clone and add_requirements",
);
$clone->clear_requirement('Shared');
is_deeply(
$clone->as_string_hash,
{
Left => 10,
Right => 18,
Exact => '== 8',
},
"cleared the shared requirement",
);
}
{
my $req_1 = CPAN::Meta::Requirements->new;
$req_1->add_maximum(Foo => 1);
my $req_2 = $req_1->clone;
is_deeply(
$req_2->as_string_hash,
{
'Foo' => '<= 1',
},
'clone with only max',
);
}
{
my $left = CPAN::Meta::Requirements->new;
$left->add_minimum(Foo => 0);
$left->add_minimum(Bar => 1);
my $right = CPAN::Meta::Requirements->new;
$right->add_requirements($left);
is_deeply(
$right->as_string_hash,
{
Foo => 0,
Bar => 1,
},
"we do not lose 0-min reqs on merge",
);
}
done_testing;
Jump to Line
Something went wrong with that request. Please try again.