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 qw[no_plan];
use CPAN::Perl::Releases qw[perl_tarballs perl_versions perl_pumpkins];
my $perl = '5.14.0';
my $expected = {
"tar.bz2" => "J/JE/JESSE/perl-5.14.0.tar.bz2",
"tar.gz" => "J/JE/JESSE/perl-5.14.0.tar.gz"
};
{
my $got = perl_tarballs( $perl );
is_deeply( $got, $expected, 'Imported function' );
}
{
my $got = CPAN::Perl::Releases::perl_tarballs( $perl );
is_deeply( $got, $expected, 'Package Function' );
}
{
my $got = CPAN::Perl::Releases->perl_tarballs( $perl );
is_deeply( $got, $expected, 'Class method' );
}
{
my $got = perl_tarballs( '6.0.0' );
ok( !$got, 'Should not have this release' );
}
{
my $got = perl_tarballs( );
ok( !$got, 'Should not have undef release' );
}
my @versions = perl_versions();
ok (grep(/^5.6.1$/, @versions), "has 5.6.1");
ok (grep(/^5.18.0$/, @versions), "has 5.18.0");
my @pumpkins = perl_pumpkins();
ok (grep(/^BINGOS$/, @pumpkins), "has BINGOS");
ok (grep(/^JESSE$/, @pumpkins), "has JESSE");
ok (!grep(/^LWALL$/, @pumpkins), "canz delegatez");
|
