The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use Test::More tests => 6;

use CPAN::Mini::Inject;

my $mcpi = CPAN::Mini::Inject->new;
$mcpi->loadcfg( 't/.mcpani/config' );
$mcpi->parsecfg;
is( $mcpi->{config}{local},      't/local/CPAN' );
is( $mcpi->{config}{remote},     'http://localhost:11027' );
is( $mcpi->{config}{repository}, 't/local/MYCPAN' );

$mcpi = CPAN::Mini::Inject->new;
$mcpi->parsecfg( 't/.mcpani/config' );
is( $mcpi->{config}{local},      't/local/CPAN' );
is( $mcpi->{config}{remote},     'http://localhost:11027' );
is( $mcpi->{config}{repository}, 't/local/MYCPAN' );