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
|
use strict;
use warnings;
use Test::More;
use CPAN::Audit::Query;
subtest 'advisories_for' => sub {
my $query = _build(
db => {
dists => {
Foo => {
advisories => [
{
id => 'SA-1',
package => 'Foo',
affected_versions => '<1.1'
},
{
id => 'SA-2',
package => 'Foo',
affected_versions => '<1.2'
},
],
versions => [
{ version => '0.9' },
{ version => '1.1' },
{ version => '1.2' },
{ version => '1.3' }
]
},
}
}
);
is_deeply [ $query->advisories_for('Unknown') ], [];
is scalar $query->advisories_for('Foo'), 2;
is scalar $query->advisories_for( 'Foo', '1.1' ), 1;
is_deeply [ $query->advisories_for( 'Foo', '1.3' ) ], [];
is_deeply [ $query->advisories_for( 'Foo', '5' ) ], [];
};
done_testing;
sub _build { CPAN::Audit::Query->new(@_) }
|
