Lines 26-32
use Test::More tests => 1;
Link Here
|
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 => 6; |
29 |
plan tests => 9; |
30 |
|
30 |
|
31 |
my $ret; |
31 |
my $ret; |
32 |
t::lib::Mocks::mock_config('log4perl_conf', undef); |
32 |
t::lib::Mocks::mock_config('log4perl_conf', undef); |
Lines 52-58
HERE
Link Here
|
52 |
ok( $@, 'Logger did not init correctly without permission'); |
52 |
ok( $@, 'Logger did not init correctly without permission'); |
53 |
|
53 |
|
54 |
system("chmod 700 $log"); |
54 |
system("chmod 700 $log"); |
55 |
my $logger= Koha::Logger->get({ interface => 'intranet' }); |
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 1'), 1, '->warn 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 } |
Lines 60-65
HERE
Link Here
|
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 |
|
62 |
|
|
|
63 |
Koha::Logger->put_mdc( 'foo', 'bar' ); |
64 |
is( Koha::Logger->get_mdc('foo'), 'bar', "MDC value via put is correct" ); |
65 |
|
66 |
Koha::Logger->put_mdc( 'foo', 'baz' ); |
67 |
is( Koha::Logger->get_mdc('foo'), 'baz', "Updated MDC value via put is correct" ); |
68 |
|
69 |
Koha::Logger->put_mdc( 'foo', undef ); |
70 |
is( Koha::Logger->get_mdc('foo'), undef, "Updated MDC value to undefined via put is correct" ); |
63 |
}; |
71 |
}; |
64 |
|
72 |
|
65 |
sub mytempfile { |
73 |
sub mytempfile { |
66 |
- |
|
|