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 );
+}