t/writelist.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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 );
}