diff options
Diffstat (limited to 't/parsecfg.t')
-rw-r--r-- | t/parsecfg.t | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/t/parsecfg.t b/t/parsecfg.t new file mode 100644 index 0000000..bbd0976 --- /dev/null +++ b/t/parsecfg.t @@ -0,0 +1,25 @@ +use Test::More tests => 11; + +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' ); + + +$mcpi = CPAN::Mini::Inject->new; +$mcpi->parsecfg( 't/.mcpani/config_with_whitespaces' ); +is( $mcpi->{config}{local}, 't/local/CPAN' ); +is( $mcpi->{config}{remote}, 'http://localhost:11027' ); +is( $mcpi->{config}{repository}, 't/local/MYCPAN' ); +is( $mcpi->{config}{dirmode}, '0775' ); +is( $mcpi->{config}{passive}, 'yes' ); |