Marcel de Rooy
e25f4670f3
Corrections and added unit tests following the changes of the first patch. GetFictiveIssueNumber.t: New subtest for weekly frequencies. GetNextDate.t: Correcting a few dates one day. If we use 2/week, we will calculate an interval of 3 days and correct with 4 days at the end of the cycle. The connection with firstacqui is not relevant anymore. Test plan: [1] Run t/db_dependent/Serials/GetFictiveIssueNumber.t [2] Run t/db_dependent/Serials/GetNextDate.t Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
570 lines
19 KiB
Perl
570 lines
19 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
use Test::More tests => 102;
|
|
|
|
use Koha::Database;
|
|
use C4::Serials;
|
|
use C4::Serials::Frequency;
|
|
|
|
my $schema = Koha::Database->new->schema;
|
|
$schema->storage->txn_begin;
|
|
my $dbh = C4::Context->dbh;
|
|
|
|
|
|
# TEST CASE - 1 issue per day, no irregularities
|
|
my $frequency = {
|
|
description => "One issue per day",
|
|
unit => 'day',
|
|
issuesperunit => 1,
|
|
unitsperissue => 1,
|
|
};
|
|
my $id = AddSubscriptionFrequency($frequency);
|
|
|
|
my $subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
my $publisheddate = $subscription->{firstacquidate};
|
|
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-02');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-03');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-04');
|
|
|
|
# TEST CASE - 1 issue per day, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '2;4', # Skip the second and fourth issues
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-03');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-05');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-06');
|
|
|
|
# TEST CASE - 2 issues per day, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "Two issues per day",
|
|
unit => 'day',
|
|
issuesperunit => 2,
|
|
unitsperissue => 1,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-02');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-02');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-03');
|
|
|
|
# TEST CASE - 2 issues per day, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '3;5;6',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-02');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-04');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-04');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-05');
|
|
|
|
# TEST CASE - 1 issue every 2 days, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "one issue every two days",
|
|
unit => 'day',
|
|
issuesperunit => 1,
|
|
unitsperissue => 2,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-03');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-05');
|
|
|
|
# TEST CASE - 1 issue every 2 days, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '3',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-03');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-07');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-09');
|
|
|
|
# TEST CASE - 1 issue per week, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "one issue per week",
|
|
unit => 'week',
|
|
issuesperunit => 1,
|
|
unitsperissue => 1,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-08');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-15');
|
|
|
|
# TEST CASE - 1 issue per week, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '3',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-08');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-22');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-29');
|
|
|
|
# TEST CASE - 1 issue every 2 weeks, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "one issue every 2 weeks",
|
|
unit => 'week',
|
|
issuesperunit => 1,
|
|
unitsperissue => 2,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-15');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-29');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-02-12');
|
|
|
|
# TEST CASE - 1 issue every 2 weeks, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '3',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-15');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-02-12');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-02-26');
|
|
|
|
# TEST CASE - 2 issues per week, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "two issues per week",
|
|
unit => 'week',
|
|
issuesperunit => 2,
|
|
unitsperissue => 1,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-04');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-08');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-11');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-15');
|
|
|
|
# TEST CASE - 2 issues per week, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '3;5;6',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-04');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-11');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-22');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-25');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-29');
|
|
|
|
# TEST CASE - 6 issues per week, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "six issues per week",
|
|
unit => 'week',
|
|
issuesperunit => 6,
|
|
unitsperissue => 1,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-06',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-07');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-08');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-09');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-10');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-11');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-13');
|
|
|
|
# TEST CASE - 6 issues per week, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-06',
|
|
irregularity => '3;5;6',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-07');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-09');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-13');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-14');
|
|
|
|
# TEST CASE - 1 issue per month, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "1 issue per month",
|
|
unit => 'month',
|
|
issuesperunit => 1,
|
|
unitsperissue => 1,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-02-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-03-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-04-01');
|
|
|
|
# TEST CASE - 1 issue per month, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '2;4',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-03-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-05-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-06-01');
|
|
|
|
# TEST CASE - 1 issue every 2 months, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "1 issue every 2 months",
|
|
unit => 'month',
|
|
issuesperunit => 1,
|
|
unitsperissue => 2,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-03-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-05-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-07-01');
|
|
|
|
# TEST CASE - 1 issue every 2 months, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '2;3',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-07-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-09-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-11-01');
|
|
|
|
# TEST CASE - 2 issues per month, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "2 issues per month",
|
|
unit => 'month',
|
|
issuesperunit => 2,
|
|
unitsperissue => 1,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-16', 'Jan 16');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-02-01', 'Feb 1');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-02-16', 'Feb 16');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-03-01', 'Mar 1' );
|
|
|
|
# TEST CASE - 2 issues per month, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '3;5;6',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-01-16', 'Jan 16' );
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-02-16', 'Feb 16 (skipping Feb 1)' );
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-04-01', 'Apr 1 (skipping Mar 1 and 16)' );
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-04-16', 'Apr 16' );
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-05-01', 'May 1' );
|
|
|
|
# TEST CASE - 1 issue per year, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "1 issue per year",
|
|
unit => 'year',
|
|
issuesperunit => 1,
|
|
unitsperissue => 1,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1971-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1972-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1973-01-01');
|
|
|
|
# TEST CASE - 1 issue per year, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '2;4',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1972-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1974-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1975-01-01');
|
|
|
|
# TEST CASE - 1 issue every 2 years, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "1 issue every 2 years",
|
|
unit => 'year',
|
|
issuesperunit => 1,
|
|
unitsperissue => 2,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1972-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1974-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1976-01-01');
|
|
|
|
# TEST CASE - 1 issue every 2 years, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '2;4',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1974-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1978-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1980-01-01');
|
|
# Move publisheddate to Feb 29 (leap year 1980)
|
|
$publisheddate = '1980-02-29';
|
|
$publisheddate = GetNextDate( $subscription, $publisheddate );
|
|
is( $publisheddate, '1982-02-28', 'Test +2 year from Feb 29' );
|
|
|
|
# TEST CASE - 2 issues per year, no irregularity
|
|
$id = AddSubscriptionFrequency({
|
|
description => "2 issues per year",
|
|
unit => 'year',
|
|
issuesperunit => 2,
|
|
unitsperissue => 1,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-07-02');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1971-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1971-07-02');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1972-01-01');
|
|
|
|
# TEST CASE - 2 issues per year, irregularities
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '3;5;6',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1970-07-02');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1971-07-02');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1973-01-01');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1973-07-02');
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, '1974-01-01');
|
|
|
|
# TEST CASE - 9 issues per year, dates spread throughout month
|
|
$id = AddSubscriptionFrequency({
|
|
description => "9 issues per year",
|
|
unit => 'year',
|
|
issuesperunit => 9,
|
|
unitsperissue => 1,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-08-10',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
my @dates = ( $subscription->{firstacquidate} );
|
|
foreach(1..27) {
|
|
push @dates, GetNextDate( $subscription, $dates[-1] );
|
|
}
|
|
is( $dates[9], '1971-08-10', 'Freq 9/yr, 1 year passed' );
|
|
is( $dates[18], '1972-08-10', 'Freq 9/yr, 2 years passed (leap year)' );
|
|
is( $dates[27], '1973-08-10', 'Freq 9/yr, 3 years passed' );
|
|
# Keep (first) position in cycle, but shift back 9 days
|
|
is( GetNextDate( $subscription, '1973-08-01' ), '1973-09-10', 'Back 9 days, without annual correction' );
|
|
# Set position to last in cycle, and shift back 9 days; annual correction
|
|
$subscription->{countissuesperunit} = 9;
|
|
is( GetNextDate( $subscription, '1973-08-01' ), '1973-09-15', 'Last in cycle, back 9 days, expect annual correction' );
|
|
|
|
# TEST CASE - Irregular
|
|
$id = AddSubscriptionFrequency({
|
|
description => "Irregular",
|
|
unit => undef,
|
|
issuesperunit => 1,
|
|
unitsperissue => 1,
|
|
});
|
|
$subscription = {
|
|
periodicity => $id,
|
|
firstacquidate => '1970-01-01',
|
|
irregularity => '',
|
|
countissuesperunit => 1,
|
|
};
|
|
$publisheddate = $subscription->{firstacquidate};
|
|
# GetNextDate always return undef if subscription is irregular
|
|
$publisheddate = GetNextDate($subscription, $publisheddate);
|
|
is($publisheddate, undef);
|
|
|
|
# GetNextDate returns undef if one of two first parameters is undef
|
|
$publisheddate = GetNextDate($subscription, undef);
|
|
is($publisheddate, undef);
|
|
$publisheddate = GetNextDate(undef, $subscription->{firstacquidate});
|
|
is($publisheddate, undef);
|
|
$publisheddate = GetNextDate(undef, undef);
|
|
is($publisheddate, undef);
|
|
|
|
$schema->storage->txn_rollback;
|