CPAN-Mini
view release on metacpan or search on metacpan
30313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132
{
$config_fh
}
"$key: $config->{$key}\n"
;
}
close
$config_fh
or
die
"error closing $filename: $!"
;
return
$tempdir
;
}
subtest
"defaults"
=>
sub
{
local
$ENV
{HOME} = config_dir;
local
@ARGV
=
@LR_ARGS
;
my
$minicpan
= CPAN::Mini::App->initialize_minicpan;
isa_ok(
$minicpan
,
'CPAN::Mini'
);
is(
$minicpan
->log_level,
'info'
,
"default log level is info"
);
};
subtest
"--debug"
=>
sub
{
local
$ENV
{HOME} = config_dir;
local
@ARGV
= (
qw(--debug)
,
@LR_ARGS
);
my
$minicpan
= CPAN::Mini::App->initialize_minicpan;
isa_ok(
$minicpan
,
'CPAN::Mini'
);
is(
$minicpan
->log_level,
'debug'
,
"--debug to get log level debug"
);
};
subtest
"config: log_level"
=>
sub
{
local
$ENV
{HOME} = config_dir({
log_level
=>
'debug'
});
local
@ARGV
=
@LR_ARGS
;
my
$minicpan
= CPAN::Mini::App->initialize_minicpan;
isa_ok(
$minicpan
,
'CPAN::Mini'
);
is(
$minicpan
->log_level,
'debug'
,
"debug from config file"
);
};
subtest
"--debug overrides config"
=>
sub
{
local
$ENV
{HOME} = config_dir({
log_level
=>
'fatal'
});
local
@ARGV
= (
qw(--debug)
,
@LR_ARGS
);
my
$minicpan
= CPAN::Mini::App->initialize_minicpan;
isa_ok(
$minicpan
,
'CPAN::Mini'
);
is(
$minicpan
->log_level,
'debug'
,
"--debug overrides config file"
);
};
subtest
"--log-level"
=>
sub
{
local
$ENV
{HOME} = config_dir;
local
@ARGV
= (
qw(--log-level debug)
,
@LR_ARGS
);
my
$minicpan
= CPAN::Mini::App->initialize_minicpan;
isa_ok(
$minicpan
,
'CPAN::Mini'
);
is(
$minicpan
->log_level,
'debug'
,
"--debug to get log level debug"
);
};
subtest
"only one log-level-like switch allowed"
=>
sub
{
for
my
$combo
(
[
qw(--debug -q)
],
[
qw(--debug --log-level debug)
],
) {
local
$ENV
{HOME} = config_dir;
local
@ARGV
= (
@$combo
,
@LR_ARGS
);
my
$minicpan
=
eval
{ CPAN::Mini::App->initialize_minicpan };
like($@,
qr/can't mix/
,
"can't use @$combo together"
);
};
};
for
my
$switch
(
qw(-qq --qq)
) {
subtest
"extra quiet with $switch"
=>
sub
{
local
$ENV
{HOME} = config_dir;
local
@ARGV
= (
$switch
,
@LR_ARGS
);
my
$minicpan
= CPAN::Mini::App->initialize_minicpan;
isa_ok(
$minicpan
,
'CPAN::Mini'
);
is(
$minicpan
->log_level,
'fatal'
,
"$switch gets us log level 'fatal'"
);
};
}
subtest
"-perl switch"
=>
sub
{
local
$ENV
{HOME} = config_dir;
local
@ARGV
=
@LR_ARGS
;
my
$minicpan
= CPAN::Mini::App->initialize_minicpan;
isa_ok(
$minicpan
,
'CPAN::Mini'
);
is(
$minicpan
->{skip_perl}, 1,
"'skip_perl' is true without -perl switch"
);
local
@ARGV
= (
'-perl'
,
@LR_ARGS
);
$minicpan
= CPAN::Mini::App->initialize_minicpan;
isa_ok(
$minicpan
,
'CPAN::Mini'
);
is(
$minicpan
->{skip_perl},
q{}
,
"'skip_perl' is false with -perl switch"
);
};
done_testing;
1;
( run in 0.514 second using v1.01-cache-2.11-cpan-dcdd9aafbe2 )