|
Packit |
f40462 |
use strict;
|
|
Packit |
f40462 |
use warnings;
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
use CPAN::Meta::Requirements;
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
use Test::More 0.88;
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
{
|
|
Packit |
f40462 |
my $req = CPAN::Meta::Requirements->new->add_minimum(Foo => 1);
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
ok( $req->accepts_module(Foo => 1), "need 1, got 1");
|
|
Packit |
f40462 |
ok(! $req->accepts_module(Foo => 0), "need 0, got 1");
|
|
Packit |
f40462 |
}
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
{
|
|
Packit |
f40462 |
my $req = CPAN::Meta::Requirements->new->add_minimum(Foo => 0);
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
ok( $req->accepts_module(Foo => 1), "need 0, got 1");
|
|
Packit |
f40462 |
ok( $req->accepts_module(Foo => undef), "need 0, got undef");
|
|
Packit |
f40462 |
ok( $req->accepts_module(Foo => "v0"), "need 0, got 'v0'");
|
|
Packit |
f40462 |
ok( $req->accepts_module(Foo => v1.2.3), "need 0, got v1.2.3");
|
|
Packit |
f40462 |
ok( $req->accepts_module(Foo => "v1.2.3"), "need 0, got 'v1.2.3'");
|
|
Packit |
f40462 |
}
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
{
|
|
Packit |
f40462 |
my $req = CPAN::Meta::Requirements->new->add_maximum(Foo => 1);
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
ok( $req->accepts_module(Foo => 1), "need <=1, got 1");
|
|
Packit |
f40462 |
ok(! $req->accepts_module(Foo => 2), "need <=1, got 2");
|
|
Packit |
f40462 |
}
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
{
|
|
Packit |
f40462 |
my $req = CPAN::Meta::Requirements->new->add_exclusion(Foo => 1);
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
ok( $req->accepts_module(Foo => 0), "need !1, got 0");
|
|
Packit |
f40462 |
ok(! $req->accepts_module(Foo => 1), "need !1, got 1");
|
|
Packit |
f40462 |
}
|
|
Packit |
f40462 |
|
|
Packit |
f40462 |
done_testing;
|