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
|
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), "need 1, got 1");
ok(! $req->accepts_module(Foo => 0), "need 0, got 1");
}
{
my $req = CPAN::Meta::Requirements->new->add_minimum(Foo => 0);
ok( $req->accepts_module(Foo => 1), "need 0, got 1");
ok( $req->accepts_module(Foo => undef), "need 0, got undef");
ok( $req->accepts_module(Foo => "v0"), "need 0, got 'v0'");
ok( $req->accepts_module(Foo => v1.2.3), "need 0, got v1.2.3");
ok( $req->accepts_module(Foo => "v1.2.3"), "need 0, got 'v1.2.3'");
}
{
my $req = CPAN::Meta::Requirements->new->add_maximum(Foo => 1);
ok( $req->accepts_module(Foo => 1), "need <=1, got 1");
ok(! $req->accepts_module(Foo => 2), "need <=1, got 2");
}
{
my $req = CPAN::Meta::Requirements->new->add_exclusion(Foo => 1);
ok( $req->accepts_module(Foo => 0), "need !1, got 0");
ok(! $req->accepts_module(Foo => 1), "need !1, got 1");
}
{
my $req = CPAN::Meta::Requirements::Range->with_minimum(1);
ok( $req->accepts(1), "need 1, got 1");
ok(! $req->accepts(0), "need 0, got 1");
}
{
my $req = CPAN::Meta::Requirements::Range->with_minimum(0);
ok( $req->accepts(1), "need 0, got 1");
ok( $req->accepts(undef), "need 0, got undef");
ok( $req->accepts("v0"), "need 0, got 'v0'");
ok( $req->accepts(v1.2.3), "need 0, got v1.2.3");
ok( $req->accepts("v1.2.3"), "need 0, got 'v1.2.3'");
}
{
my $req = CPAN::Meta::Requirements::Range->with_maximum(1);
ok( $req->accepts(1), "need <=1, got 1");
ok(! $req->accepts(2), "need <=1, got 2");
}
{
my $req = CPAN::Meta::Requirements::Range->with_exclusion(1);
ok( $req->accepts(0), "need !1, got 0");
ok(! $req->accepts(1), "need !1, got 1");
}
done_testing;
|
