gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 42664: Unit tests 

Test Plan:
1) prove t/db_dependent/SIP/SIPServer.t

Signed-off-by: Brendan Lawlor <blawlor@clamsnet.org>
Signed-off-by: Pedro Amorim <pedro.amorim@openfifth.co.uk>
This commit is contained in:
Kyle M Hall 2026-05-21 08:13:24 -04:00 committed by Pedro Amorim
parent d709c04f57
commit f7197b43f0
No known key found for this signature in database
GPG Key ID: 06B75BA7F3894D55
1 changed files with 43 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
t/db_dependent/SIP/SIPServer.t
View File

@ -21,7 +21,7 @@
use Modern::Perl;
use Test::NoWarnings;
use Test::More tests => 2;
use Test::More tests => 3;
use Test::Warn;
my ( $mockConfig, $mockPrefork );
@ -77,3 +77,45 @@ subtest 'Get_timeout' => sub {
is( C4::SIP::SIPServer::get_timeout( $server, { transport => 1 } ), 30, "Fallback again" );
};
subtest '_config_up_to_date() tests' => sub {
plan tests => 4;
# _config_up_to_date() compares the shared sip2_resource_last_modified against the
# per-process $sip2_config_read_timestamp. Mock the cache so we control the former.
my $resource_last_modified;
my $cache_mock = Test::MockModule->new('Koha::Cache');
$cache_mock->mock(
'get_from_cache',
sub {
my ( $self, $key ) = @_;
return $resource_last_modified if $key eq 'sip2_resource_last_modified';
return $cache_mock->original('get_from_cache')->(@_);
}
);
$resource_last_modified = undef;
$C4::SIP::SIPServer::sip2_config_read_timestamp = time;
is(
C4::SIP::SIPServer::_config_up_to_date(), 0,
'Not up to date when sip2_resource_last_modified is unset'
);
$resource_last_modified = 2000;
$C4::SIP::SIPServer::sip2_config_read_timestamp = 1000;
is(
C4::SIP::SIPServer::_config_up_to_date(), 0,
'Not up to date when the resource changed after this process loaded its config'
);
$C4::SIP::SIPServer::sip2_config_read_timestamp = 2000;
is(
C4::SIP::SIPServer::_config_up_to_date(), 1,
'Up to date when this process loaded its config at the last modification'
);
$C4::SIP::SIPServer::sip2_config_read_timestamp = 3000;
is(
C4::SIP::SIPServer::_config_up_to_date(), 1,
'Up to date when this process loaded its config after the last modification'
);
};