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

Bug 35646: Unit tests

Browse source 
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Nick Clemens 2023-12-22 18:52:57 +00:00 committed by Katrin Fischer
parent 15424f9b2f
commit db7c4f85b6
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834
1 changed files with 38 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
t/db_dependent/Serials.t
View file

@ -17,7 +17,7 @@ use Koha::Acquisition::Booksellers;
use t::lib::Mocks;
use t::lib::TestBuilder;
use Test::MockModule;
use Test::More tests => 54;
use Test::More tests => 55;
BEGIN {
use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate ));
@ -552,6 +552,43 @@ subtest "NewSubscription|ModSubscription" => sub {
is( $serials->next->biblionumber, $biblio_2->biblionumber, 'ModSubscription should have updated serial.biblionumber');
};
subtest "test numbering pattern with dates in GetSeq GetNextSeq" => sub {
plan tests => 4;
$subscription = {
lastvalue1 => 1, lastvalue2 => 1, lastvalue3 => 1,
innerloop1 => 0, innerloop2 => 0, innerloop3 => 0,
skip_serialseq => 0,
irregularity => '',
locale => 'C', # locale set to 'C' to ensure we'll have english strings
firstaquidate => '1970-11-01',
};
$pattern = {
numberingmethod => '{Year} {Day} {DayName} {Month} {MonthName}',
};
my $numbering = GetSeq( $subscription, $pattern );
is( $numbering, '1970 1 Sunday 11 November', 'GetSeq correctly calculates numbering from first aqui date' );
$subscription->{firstaquidate} = '2024-02-29';
$numbering = GetSeq( $subscription, $pattern );
is(
$numbering, '2024 29 Thursday 2 February',
'GetSeq correctly calculates numbering from first aqui date, leap year'
);
my $planneddate = '1970-11-01';
($numbering) = GetNextSeq( $subscription, $pattern, undef, $planneddate );
is( $numbering, '1970 1 Sunday 11 November', 'GetNextSeq correctly calculates numbering from planned date' );
$planneddate = '2024-02-29';
($numbering) = GetNextSeq( $subscription, $pattern, undef, $planneddate );
is(
$numbering, '2024 29 Thursday 2 February',
'GetNextSeq correctly calculates numbering from planned date, leap year'
);
};
subtest "_numeration" => sub {
plan tests => 6;