Lines 22-28
use Koha::Logger;
Link Here
|
22 |
use t::lib::Mocks; |
22 |
use t::lib::Mocks; |
23 |
|
23 |
|
24 |
use File::Temp qw/tempfile/; |
24 |
use File::Temp qw/tempfile/; |
25 |
use Test::More tests => 1; |
25 |
use Test::More tests => 2; |
26 |
use Test::Warn; |
26 |
use Test::Warn; |
27 |
|
27 |
|
28 |
subtest 'Test01 -- Simple tests for Koha::Logger' => sub { |
28 |
subtest 'Test01 -- Simple tests for Koha::Logger' => sub { |
Lines 59-65
HERE
Link Here
|
59 |
"ERROR: Unsupported method catastrophe", |
59 |
"ERROR: Unsupported method catastrophe", |
60 |
"Undefined method raises warning"; |
60 |
"Undefined method raises warning"; |
61 |
is( $ret, undef, "'catastrophe' method undefined"); |
61 |
is( $ret, undef, "'catastrophe' method undefined"); |
|
|
62 |
}; |
63 |
|
64 |
subtest 'Test02 -- Koha::Logger STDERR' => sub { |
65 |
plan tests => 4; |
66 |
|
67 |
my $config_text = <<"HERE" |
68 |
log4perl.logger.intranet = WARN, INTRANET |
69 |
log4perl.appender.INTRANET=Log::Log4perl::Appender::Screen |
70 |
log4perl.appender.INTRANET.stderr=1 |
71 |
log4perl.appender.INTRANET.mode=append |
72 |
log4perl.appender.INTRANET.layout=PatternLayout |
73 |
log4perl.appender.INTRANET.layout.ConversionPattern=[%d] [%p] %m %l %n |
74 |
|
75 |
log4perl.logger.opac = WARN, OPAC |
76 |
log4perl.appender.OPAC=Log::Log4perl::Appender::Screen |
77 |
log4perl.appender.OPAC.stderr=1 |
78 |
log4perl.appender.OPAC.mode=append |
79 |
log4perl.appender.OPAC.layout=PatternLayout |
80 |
log4perl.appender.OPAC.layout.ConversionPattern=[%d] [%p] %m %l %n |
81 |
HERE |
82 |
; |
83 |
#NOTE: Re-init at this level, since Koha::Logger can't re-init |
84 |
Log::Log4perl->init( \$config_text ); |
85 |
|
86 |
my $opac_logger= Koha::Logger->get({ interface => 'opac' }); |
87 |
is( exists $opac_logger->{logger}, 1, 'Log4perl config found'); |
88 |
my $opac_out; |
89 |
{ |
90 |
local *STDERR; |
91 |
open(STDERR,'>>',\$opac_out); |
92 |
$opac_logger->warn('opac-warn'); |
93 |
}; |
94 |
like($opac_out, qr/\Q[WARN] opac-warn\Q/,'OPAC logged to STDERR'); |
62 |
|
95 |
|
|
|
96 |
my $intranet_logger= Koha::Logger->get({ interface => 'intranet' }); |
97 |
is( exists $intranet_logger->{logger}, 1, 'Log4perl config found'); |
98 |
my $intranet_out; |
99 |
{ |
100 |
local *STDERR; |
101 |
open(STDERR,'>>',\$intranet_out); |
102 |
$intranet_logger->warn('intranet-warn'); |
103 |
}; |
104 |
like($intranet_out, qr/\Q[WARN] intranet-warn\Q/,'Intranet logged to STDERR'); |
63 |
}; |
105 |
}; |
64 |
|
106 |
|
65 |
sub mytempfile { |
107 |
sub mytempfile { |
66 |
- |
|
|