3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
24 use File::Temp qw/tempfile/;
25 use Test::More tests => 1;
29 subtest 'Test01 -- Simple tests for Koha::Logger' => sub {
33 t::lib::Mocks::mock_config('log4perl_conf', undef);
35 throws_ok { Koha::Logger->get } qr/Configuration not defined/, 'Logger did not init correctly without config';
37 my $log = mytempfile();
38 my $config_file = mytempfile( <<"HERE"
39 log4perl.logger.intranet = WARN, INTRANET
40 log4perl.appender.INTRANET=Log::Log4perl::Appender::File
41 log4perl.appender.INTRANET.filename=$log
42 log4perl.appender.INTRANET.mode=append
43 log4perl.appender.INTRANET.layout=PatternLayout
44 log4perl.appender.INTRANET.layout.ConversionPattern=[%d] [%p] %m %l%n
48 t::lib::Mocks::mock_config('log4perl_conf', $config_file);
50 system("chmod 400 $log");
51 throws_ok { Koha::Logger->get } qr/Permission denied/, 'Logger did not init correctly without permission';
53 system("chmod 700 $log");
54 my $logger = Koha::Logger->get( { interface => 'intranet' } );
55 is( exists $logger->{logger}, 1, 'Log4perl config found');
56 is( $logger->warn('Message 1'), 1, '->warn returned a value' );
57 warning_is { $ret = $logger->catastrophe }
58 "ERROR: Unsupported method catastrophe",
59 "Undefined method raises warning";
60 is( $ret, undef, "'catastrophe' method undefined");
62 Koha::Logger->put_mdc( 'foo', 'bar' );
63 is( Koha::Logger->get_mdc( 'foo' ), 'bar', "MDC value via put_mdc is correct" );
65 Koha::Logger->put_mdc( 'foo', undef );
66 is( Koha::Logger->get_mdc( 'foo' ), undef, "Updated MDC value to undefined via put_mdc is correct" );
68 Koha::Logger->put_mdc( 'foo', 'baz' );
69 is( Koha::Logger->get_mdc( 'foo' ), 'baz', "Updated MDC value via put_mdc is correct" );
71 Koha::Logger->clear_mdc();
72 is( Koha::Logger->get_mdc( 'foo' ), undef, "MDC value was cleared by clear_mdc" );
76 my ( $fh, $fn ) = tempfile( SUFFIX => '.logger.test', UNLINK => 1 );