Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 32979: Add Test::Exception to Logger.t

Browse source 
Test plan:
Run t/Logger.t
Note: Run under koha user, not root. Root wont have
the permission failure which is tested.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Marcel de Rooy 2023-01-26 15:08:24 +00:00 committed by Tomas Cohen Arazi
parent 801cace195
commit 2cdc018c81
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
t/Logger.t
View file

@ -24,6 +24,7 @@ use t::lib::Mocks;
use File::Temp qw/tempfile/;
use Test::More tests => 1;
use Test::Warn;
use Test::Exception;
subtest 'Test01 -- Simple tests for Koha::Logger' => sub {
plan tests => 10;
@ -31,8 +32,7 @@ subtest 'Test01 -- Simple tests for Koha::Logger' => sub {
my $ret;
t::lib::Mocks::mock_config('log4perl_conf', undef);
eval { Koha::Logger->get };
ok( $@, 'Logger did not init correctly without config');
throws_ok { Koha::Logger->get } qr/Configuration not defined/, 'Logger did not init correctly without config';
my $log = mytempfile();
my $config_file = mytempfile( <<"HERE"
@ -48,8 +48,7 @@ HERE
t::lib::Mocks::mock_config('log4perl_conf', $config_file);
system("chmod 400 $log");
eval { Koha::Logger->get };
ok( $@, 'Logger did not init correctly without permission');
throws_ok { Koha::Logger->get } qr/Permission denied/, 'Logger did not init correctly without permission';
system("chmod 700 $log");
my $logger = Koha::Logger->get( { interface => 'intranet' } );