#!perl -Tw
use
strict;
use
warnings;
BEGIN {
use_ok(
'Log::Dispatch'
);
use_ok(
'Log::Dispatch::Null'
);
use_ok(
'Log::WarnDie'
);
}
RT39186: {
my
$dispatcher
= new_ok(
'Log::Dispatch'
);
my
$channel
= Log::Dispatch::Null->new(
qw(name default min_level debug)
);
isa_ok(
$channel
,
'Log::Dispatch::Null'
);
$dispatcher
->add(
$channel
);
is(
$dispatcher
->output(
'default'
),
$channel
,
'Check if channel activated'
);
Log::WarnDie->dispatcher(
$dispatcher
);
STDERR
'test output/1'
;
printf
(STDERR
'test output/2'
);
}