blob: ad4635a04630493576e315bff88d75ab5e852e2a (
plain)
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
|
use Test::More tests => 2;
use CPAN::Mini::Inject;
use File::Path;
rmtree( ['t/local/MYCPAN/modulelist'], 0, 1 );
mkdir 't/local/MYCPAN';
my $mcpi;
$mcpi = CPAN::Mini::Inject->new;
$mcpi->loadcfg( 't/.mcpani/config' )->parsecfg;
$mcpi->readlist;
is( $mcpi->{modulelist}, undef, 'Empty module list' );
genmodlist();
$mcpi = CPAN::Mini::Inject->new;
$mcpi->loadcfg( 't/.mcpani/config' )->parsecfg->readlist;
is( @{ $mcpi->{modulelist} }, 3, 'Read modulelist' );
rmtree( ['t/local/MYCPAN/modulelist'], 0, 1 );
sub genmodlist {
open( MODLIST, '>t/local/MYCPAN/modulelist' )
or die "Can not create t/local/MYCPAN/modulelist: $!";
print MODLIST << "EOF"
CPAN::Checksums 1.016 A/AN/ANDK/CPAN-Checksums-1.016.tar.gz
CPAN::Mini 0.18 R/RJ/RJBS/CPAN-Mini-0.18.tar.gz
CPANPLUS 0.0499 A/AU/AUTRIJUS/CPANPLUS-0.0499.tar.gz
EOF
;
close( MODLIST );
}
|