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
|
use strict;
use warnings;
use Test::More;
use CPAN::Audit::Version;
subtest 'in_range' => sub {
my $checker = _build();
ok( !$checker->in_range() );
ok( !$checker->in_range('1.2') );
ok( !$checker->in_range( 'abc', 'def' ) );
ok( !$checker->in_range( 'abc', '1.2' ) );
ok( !$checker->in_range( '1.2', 'def' ) );
ok( !$checker->in_range( '1.2', '^1.2' ) );
ok( $checker->in_range( '1.2', '' ) );
ok( $checker->in_range( '1.2', '0' ) );
ok( $checker->in_range( '1.2', '1.1' ) );
ok( $checker->in_range( '1.2', '1.2' ) );
ok( !$checker->in_range( '1.2', '1.5' ) );
ok( $checker->in_range( '1.0', '<=1.1' ) );
ok( $checker->in_range( '1.1', '<=1.1' ) );
ok( !$checker->in_range( '1.2', '<=1.1' ) );
ok( $checker->in_range( '1.0', '<1.1' ) );
ok( !$checker->in_range( '1.1', '<1.1' ) );
ok( !$checker->in_range( '1.2', '<1.1' ) );
ok( !$checker->in_range( '1.0', '>=1.1' ) );
ok( $checker->in_range( '1.1', '>=1.1' ) );
ok( $checker->in_range( '1.2', '>=1.1' ) );
ok( $checker->in_range( '1.2', '>1.1' ) );
ok( !$checker->in_range( '1.1', '>1.1' ) );
ok( !$checker->in_range( '1.0', '>1.1' ) );
ok( $checker->in_range( '1.0', '==1.0' ) );
ok( !$checker->in_range( '1.0', '==1.1' ) );
ok( $checker->in_range( '1.0', '!=1.1' ) );
ok( !$checker->in_range( '1.0', '!=1.0' ) );
ok( $checker->in_range( '5', '>= 1.1, < 6' ) );
ok( !$checker->in_range( '5', '>= 1.1, < 4' ) );
};
subtest 'affected_versions' => sub {
my $checker = _build();
is_deeply(
[
$checker->affected_versions(
[ '1.2', '1.3', '2.0' ],
'>= 1.2, <= 1.5'
)
],
[ '1.2', '1.3' ]
);
};
done_testing;
sub _build { CPAN::Audit::Version->new }
|
