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