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
|
# -*- cperl -*-
use strict;
use warnings;
use Path::Tiny;
use Test::More;
use Config::Model qw/initialize_log4perl/;
my %specs = (
'single class' => 'Loader',
'multiple classes' => [ 'Loader', 'Thingy' ],
);
Config::Model::force_usage_of_default_log_config();
foreach my $test (sort keys %specs) {
subtest "$test log init" => sub {
my $arg = $specs{$test};
my $res = initialize_log4perl( verbose => $arg );
ok ($res, "$test init called" );
my @classes = ref $arg ? @$arg: ($arg) ;
foreach my $c (@classes) {
is($res->{"log4perl.logger.Verbose.$c"}, "INFO, PlainMsgOnScreen", "check changed setting");
}
is($res->{"log4perl.appender.Screen"}, "Log::Log4perl::Appender::Screen", "check default setting");
};
}
done_testing;
|
