Lines 47-56
HERE
Link Here
|
47 |
|
47 |
|
48 |
t::lib::Mocks::mock_config('log4perl_conf', $config_file); |
48 |
t::lib::Mocks::mock_config('log4perl_conf', $config_file); |
49 |
|
49 |
|
50 |
system("chmod 400 $log"); |
50 |
my $login = getlogin || getpwuid($<) || q{}; |
51 |
throws_ok { Koha::Logger->get } qr/Permission denied/, 'Logger did not init correctly without permission'; |
51 |
|
|
|
52 |
SKIP: { |
53 |
skip "Running as root user", 1 if $login eq 'root'; |
54 |
|
55 |
system("chmod 400 $log"); |
56 |
throws_ok { Koha::Logger->get } qr/Permission denied/, 'Logger did not init correctly without permission'; |
57 |
system("chmod 700 $log"); |
58 |
} |
52 |
|
59 |
|
53 |
system("chmod 700 $log"); |
|
|
54 |
my $logger = Koha::Logger->get( { interface => 'intranet' } ); |
60 |
my $logger = Koha::Logger->get( { interface => 'intranet' } ); |
55 |
is( exists $logger->{logger}, 1, 'Log4perl config found'); |
61 |
is( exists $logger->{logger}, 1, 'Log4perl config found'); |
56 |
is( $logger->warn('Message 1'), 1, '->warn returned a value' ); |
62 |
is( $logger->warn('Message 1'), 1, '->warn returned a value' ); |
57 |
- |
|
|