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