|
Line 0
Link Here
|
|
|
1 |
#!/usr/bin/perl |
| 2 |
|
| 3 |
# This test deals with GetFictiveIssueNumber (from C4::Serials) |
| 4 |
|
| 5 |
use Modern::Perl; |
| 6 |
use Test::More tests => 2; |
| 7 |
|
| 8 |
use Koha::Database; |
| 9 |
use C4::Serials; |
| 10 |
use C4::Serials::Frequency; |
| 11 |
|
| 12 |
my $schema = Koha::Database->new->schema; |
| 13 |
$schema->storage->txn_begin; |
| 14 |
my $dbh = C4::Context->dbh; |
| 15 |
|
| 16 |
subtest 'Tests for irregular frequency' => sub { |
| 17 |
plan tests => 2; |
| 18 |
|
| 19 |
# Add a frequency |
| 20 |
my $freq_irr = AddSubscriptionFrequency({ |
| 21 |
description => "Irregular", |
| 22 |
unit => undef, |
| 23 |
}); |
| 24 |
|
| 25 |
# Test it |
| 26 |
my $subscription = { |
| 27 |
periodicity => $freq_irr, |
| 28 |
firstacquidate => '1972-02-07', |
| 29 |
}; |
| 30 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-12-31'), 0, 'Irregular: should be zero' ); |
| 31 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-12-31'), 0, 'Irregular: still zero' ); |
| 32 |
}; |
| 33 |
|
| 34 |
subtest 'Tests for yearly frequencies' => sub { |
| 35 |
plan tests => 10; |
| 36 |
|
| 37 |
# First add a few frequencies |
| 38 |
my $freq_1i_1y = AddSubscriptionFrequency({ |
| 39 |
description => "1 issue per year", |
| 40 |
unit => 'year', |
| 41 |
issuesperunit => 1, |
| 42 |
unitsperissue => 1, |
| 43 |
}); |
| 44 |
my $freq_1i_3y = AddSubscriptionFrequency({ |
| 45 |
description => "1 issue per 3 years", |
| 46 |
unit => 'year', |
| 47 |
issuesperunit => 1, |
| 48 |
unitsperissue => 3, |
| 49 |
}); |
| 50 |
my $freq_5i_1y = AddSubscriptionFrequency({ |
| 51 |
description => "5 issues per year", |
| 52 |
unit => 'year', |
| 53 |
issuesperunit => 5, |
| 54 |
unitsperissue => 1, |
| 55 |
}); |
| 56 |
my $freq_366i_1y = AddSubscriptionFrequency({ |
| 57 |
description => "366 issue per year", |
| 58 |
unit => 'year', |
| 59 |
issuesperunit => 366, |
| 60 |
unitsperissue => 1, |
| 61 |
}); |
| 62 |
|
| 63 |
# TEST CASE - 1 issue per year |
| 64 |
my $subscription = { |
| 65 |
periodicity => $freq_1i_1y, |
| 66 |
firstacquidate => '1972-02-10', |
| 67 |
countissuesperunit => 1, |
| 68 |
}; |
| 69 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-09'), 1, 'Feb 9 still 1' ); |
| 70 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-10'), 2, 'Feb 10 goes to 2' ); |
| 71 |
|
| 72 |
# TEST CASE - 1 issue per 3 years |
| 73 |
$subscription->{periodicity} = $freq_1i_3y; |
| 74 |
$subscription->{firstacquidate} = '1972-02-20'; |
| 75 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1975-02-19'), 1, 'Feb 19, 1975 still 1' ); |
| 76 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1975-02-20'), 2, 'Feb 20, 1975 goes to 2' ); |
| 77 |
|
| 78 |
# TEST CASE - 5 issues per year |
| 79 |
$subscription->{periodicity} = $freq_5i_1y; |
| 80 |
$subscription->{firstacquidate} = '1972-02-29'; #leap year |
| 81 |
$subscription->{countissuesperunit} = 1; |
| 82 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-05-11'), 1, 'May 11 still 1' ); |
| 83 |
$subscription->{countissuesperunit} = 2; |
| 84 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-05-12'), 2, 'May 12 goes to 2' ); |
| 85 |
$subscription->{countissuesperunit} = 5; |
| 86 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-27'), 5, 'Feb 27 should still be 5' ); |
| 87 |
$subscription->{countissuesperunit} = 1; |
| 88 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-28'), 6, 'Feb 28 goes to 6' ); |
| 89 |
|
| 90 |
# TEST CASE - 366 issues per year (hypothetical example) |
| 91 |
# Testing prevention of divide by zero |
| 92 |
$subscription->{periodicity} = $freq_366i_1y; |
| 93 |
$subscription->{firstacquidate} = '1972-02-29'; #leap year |
| 94 |
$subscription->{countissuesperunit} = 366; |
| 95 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-27'), 366, 'Feb 27 still at 366' ); |
| 96 |
is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-28'), 732, 'Feb 28 goes to 732' ); |
| 97 |
|
| 98 |
}; |
| 99 |
|
| 100 |
# TODO: subtest 'Tests for monthly frequencies' => sub { |
| 101 |
# TODO: subtest 'Tests for weekly frequencies' => sub { |
| 102 |
# TODO: subtest 'Tests for dayly frequencies' => sub { |
| 103 |
|
| 104 |
$schema->storage->txn_rollback; |