The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

BARBIE / Parse-CPAN-Distributions-0.14 / t / 02methods.t 

            

              
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

              
#!/usr/bin/perl -w
use strict;
use Test::More  tests => 2*27;
use Parse::CPAN::Distributions;
my @files = (
    't/samples/find-ls',
    't/samples/find-ls.gz',
);
my @list;
for my $file (@files) {
    my $obj = Parse::CPAN::Distributions->new(file => $file);
    isa_ok($obj,'Parse::CPAN::Distributions');
    ok(!$obj->listed());
    ok( $obj->listed('Test-CPAN-Meta'));
    ok( $obj->listed('Test-CPAN-Meta','0.12'));
    ok(!$obj->listed('Test-CPAN-Meta','0.01'));
    ok(!$obj->listed('Test-CPAN-Meta','0.99'));
    ok(!$obj->listed('NonExistentModule'));
    @list = $obj->distributions_by('BARBIE');   is(scalar(@list),27);
    @list = $obj->distributions_by('EIBRAB');   is(scalar(@list),0);
    @list = $obj->distributions_by();           is(scalar(@list),0);
    is($obj->latest_version(),0);
    is($obj->latest_version('NonExistentModule'),0);
    is($obj->latest_version('CPAN-WWW-Testers-Generator'),'0.27');
    is($obj->latest_version('CPAN-WWW-Testers-Generator','BARBIE'),'0.27');
    is($obj->latest_version('CPAN-WWW-Testers-Generator','LBROCARD'),'0.22');
    @list = $obj->versions('CPAN-WWW-Testers-Generator');               is(scalar(@list),6);# print "\n#list=@list [$#list][".(scalar(@list))."]\n";
    @list = $obj->versions('CPAN-WWW-Testers-Generator','BARBIE');      is(scalar(@list),5);
    @list = $obj->versions('CPAN-WWW-Testers-Generator','LBROCARD');    is(scalar(@list),1);
    @list = $obj->versions('CPAN-WWW-Testers-Generator','EIBRAB');      is(scalar(@list),0);
    @list = $obj->versions('NonExistentModule');                        is(scalar(@list),0);
    @list = $obj->versions();                                           is(scalar(@list),0);
    is($obj->author_of(),undef);
    is($obj->author_of('NonExistentModule','0.01'),undef);
    is($obj->author_of('CPAN-WWW-Testers-Generator'),undef);
    is($obj->author_of('CPAN-WWW-Testers-Generator','0.01'),undef);
    is($obj->author_of('CPAN-WWW-Testers-Generator','0.27'),'BARBIE');
    is($obj->author_of('CPAN-WWW-Testers-Generator','0.22'),'LBROCARD');
}