|
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 |
- |
|
|