|
Lines 19-48
use Modern::Perl;
Link Here
|
| 19 |
|
19 |
|
| 20 |
use C4::Context; |
20 |
use C4::Context; |
| 21 |
use Koha::Logger; |
21 |
use Koha::Logger; |
|
|
22 |
use t::lib::Mocks; |
| 22 |
|
23 |
|
| 23 |
use File::Temp qw/tempfile/; |
24 |
use File::Temp qw/tempfile/; |
| 24 |
use Test::MockModule; |
|
|
| 25 |
use Test::More tests => 1; |
25 |
use Test::More tests => 1; |
| 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 { |
| 29 |
plan tests => 8; |
29 |
plan tests => 6; |
| 30 |
test01(); |
|
|
| 31 |
}; |
| 32 |
|
| 33 |
sub test01 { |
| 34 |
|
30 |
|
| 35 |
my $ret; |
31 |
my $ret; |
| 36 |
my $mContext = new Test::MockModule('C4::Context'); |
32 |
t::lib::Mocks::mock_config('log4perl_conf', undef); |
| 37 |
$mContext->mock( 'config', sub { return; } ); |
|
|
| 38 |
|
33 |
|
| 39 |
my $logger= Koha::Logger->get; |
34 |
eval { Koha::Logger->get }; |
| 40 |
is( exists $logger->{logger}, '', 'No log4perl config'); |
35 |
ok( $@, 'Logger did not init correctly without config'); |
| 41 |
my $d= $logger->debug('Message 1'); |
|
|
| 42 |
is( $d, undef, 'No return value for debug call'); |
| 43 |
|
36 |
|
| 44 |
my $log = mytempfile(); |
37 |
my $log = mytempfile(); |
| 45 |
my $conf = mytempfile( <<"HERE" |
38 |
my $config_file = mytempfile( <<"HERE" |
| 46 |
log4perl.logger.intranet = WARN, INTRANET |
39 |
log4perl.logger.intranet = WARN, INTRANET |
| 47 |
log4perl.appender.INTRANET=Log::Log4perl::Appender::File |
40 |
log4perl.appender.INTRANET=Log::Log4perl::Appender::File |
| 48 |
log4perl.appender.INTRANET.filename=$log |
41 |
log4perl.appender.INTRANET.filename=$log |
|
Lines 51-71
log4perl.appender.INTRANET.layout=PatternLayout
Link Here
|
| 51 |
log4perl.appender.INTRANET.layout.ConversionPattern=[%d] [%p] %m %l %n |
44 |
log4perl.appender.INTRANET.layout.ConversionPattern=[%d] [%p] %m %l %n |
| 52 |
HERE |
45 |
HERE |
| 53 |
); |
46 |
); |
| 54 |
$mContext->mock( 'config', sub { return $conf; } ); |
47 |
|
| 55 |
$logger= Koha::Logger->get({ interface => 'intranet' }); |
48 |
t::lib::Mocks::mock_config('log4perl_conf', $config_file); |
|
|
49 |
|
| 50 |
system("chmod 400 $log"); |
| 51 |
eval { Koha::Logger->get }; |
| 52 |
ok( $@, 'Logger did not init correctly without permission'); |
| 53 |
|
| 54 |
system("chmod 700 $log"); |
| 55 |
my $logger= Koha::Logger->get({ interface => 'intranet' }); |
| 56 |
is( exists $logger->{logger}, 1, 'Log4perl config found'); |
56 |
is( exists $logger->{logger}, 1, 'Log4perl config found'); |
| 57 |
is( $logger->warn('Message 2'), 1, 'Message 2 returned a value' ); |
57 |
is( $logger->warn('Message 1'), 1, '->warn returned a value' ); |
| 58 |
warning_is { $ret = $logger->catastrophe } |
58 |
warning_is { $ret = $logger->catastrophe } |
| 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 |
system("chmod 400 $log"); |
62 |
|
| 63 |
warnings_are { $ret = $logger->warn('Message 3') } |
63 |
}; |
| 64 |
[ "Log file not writable for log4perl", |
|
|
| 65 |
"warn: Message 3" ], |
| 66 |
"Warnings raised if log file is not writeable"; |
| 67 |
is( $ret, undef, 'Message 3 returned undef' ); |
| 68 |
} |
| 69 |
|
64 |
|
| 70 |
sub mytempfile { |
65 |
sub mytempfile { |
| 71 |
my ( $fh, $fn ) = tempfile( SUFFIX => '.logger.test', UNLINK => 1 ); |
66 |
my ( $fh, $fn ) = tempfile( SUFFIX => '.logger.test', UNLINK => 1 ); |
| 72 |
- |
|
|