diff options
author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2013-07-30 13:39:34 +0000 |
---|---|---|
committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2013-07-30 13:39:34 +0000 |
commit | 74e30d582ac01d80a7f1b28af247d0a5ee913d55 (patch) | |
tree | 2fdf53fd16ae0708e1180e4da06bea72a02175f0 /t/readlist.t | |
download | CPAN-Mini-Inject-tarball-master.tar.gz |
CPAN-Mini-Inject-0.33HEADCPAN-Mini-Inject-0.33master
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 ); +} |