diff options
Diffstat (limited to 't/readlist.t')
-rw-r--r-- | t/readlist.t | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/t/readlist.t b/t/readlist.t new file mode 100644 index 0000000..ad4635a --- /dev/null +++ b/t/readlist.t @@ -0,0 +1,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 ); +} |