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
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 4;
use_ok('Module::Packaged');
warn "\n# These tests take a while to run as we need to mirror large\n";
warn "# files from the web and then parse them. Please be patient.\n";
my $p = Module::Packaged->new();
my $dists = $p->check('Acme-Buffy');
is_deeply($dists, {
cpan => '1.3',
}, 'Acme-Buffy');
$dists = $p->check('Archive-Tar');
is_deeply($dists, {
cpan => '1.08',
debian => '1.08',
fedora => '0.22',
freebsd => '1.08',
gentoo => '1.05',
openbsd => '1.03',
suse => '0.23',
}, 'Archive-Tar');
$dists = $p->check('DBI');
is_deeply($dists, {
cpan => '1.42',
debian => '1.41',
fedora => '1.37',
freebsd => '1.37',
gentoo => '1.38',
mandrake => '1.40',
openbsd => '1.37',
suse => '1.37',
}, 'DBI');
|
