View | Details | Raw Unified | Return to bug 32979
Collapse All | Expand All

(-)a/t/Logger.t (-4 / +9 lines)
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
- 

Return to bug 32979