diff options
Diffstat (limited to 't/writelist.t')
-rw-r--r-- | t/writelist.t | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/t/writelist.t b/t/writelist.t new file mode 100644 index 0000000..de9d907 --- /dev/null +++ b/t/writelist.t @@ -0,0 +1,32 @@ +use Test::More tests => 2; + +use CPAN::Mini::Inject; + +my $mcpi; +my $module + = "CPAN::Mini::Inject 0.01 S/SS/SSORICHE/CPAN-Mini-Inject-0.01.tar.gz"; + +unlink( 't/local/MYCPAN/modulelist' ); + +genmodlist(); + +$mcpi = CPAN::Mini::Inject->new; +$mcpi->loadcfg( 't/.mcpani/config' )->parsecfg->readlist; + +push( @{ $mcpi->{modulelist} }, $module ); +is( @{ $mcpi->{modulelist} }, 4, 'Updated memory modulelist' ); +ok( $mcpi->writelist, 'Write modulelist' ); + +unlink( 't/local/MYCPAN/modulelist' ); + +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 ); +} |