| use strict; |
| use warnings; |
| |
| use CPAN::Meta::Requirements; |
| |
| use Test::More 0.88; |
| |
| { |
| my $req = CPAN::Meta::Requirements->new->add_minimum(Foo => 1); |
| |
| ok( $req->accepts_module(Foo => 1)); |
| ok(! $req->accepts_module(Foo => 0)); |
| } |
| |
| { |
| my $req = CPAN::Meta::Requirements->new->add_maximum(Foo => 1); |
| |
| ok( $req->accepts_module(Foo => 1)); |
| ok(! $req->accepts_module(Foo => 2)); |
| } |
| |
| { |
| my $req = CPAN::Meta::Requirements->new->add_exclusion(Foo => 1); |
| |
| ok( $req->accepts_module(Foo => 0)); |
| ok(! $req->accepts_module(Foo => 1)); |
| } |
| |
| done_testing; |