Attachment 63875 Details for Bug 18356 – Bug 18356: Extend GetNextDate.t, add GetFictiveIssueNumber.t (unit=year)

[patch] Bug 18356: Extend GetNextDate.t, add GetFictiveIssueNumber.t (unit=year)

Bug-18356-Extend-GetNextDatet-add-GetFictiveIssueN.patch (text/plain), 8.05 KB, created by Marcel de Rooy on 2017-05-31 14:37:54 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marcel de Rooy

Created: 2017-05-31 14:37:54 UTC

Size: 8.05 KB

patch

obsolete

>From 0d145372f7f7c9fcfba39e76eb09479e229ce012 Mon Sep 17 00:00:00 2001
>From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>Date: Thu, 11 May 2017 10:47:22 +0200
>Subject: [PATCH] Bug 18356: Extend GetNextDate.t, add GetFictiveIssueNumber.t
> (unit=year)
>Content-Type: text/plain; charset=utf-8
>
>This patch deals with tests for yearly frequencies.
>
>Adjust/extend GetNextDate.t:
>[1] Adjust mixup of units/issues in a description.
>[2] Add testing +2 years on 29-2 of leap year for freq 1 issue/2 years.
>[3] Add tests for freq 9 issues/year.
>
>Add GetFictiveIssueNumber.t:
>[1] Two subtests are provided for irregular frequencies (very trivial) and
>    for year frequencies (with four specific test cases).
>
>Test plan:
>[1] Run t/db_dependent/Serials/GetNextDate.t
>[2] Run t/db_dependent/Serials/GetFictiveIssueNumber.t
>
>Note: Without the second patch both tests should fail. This shows the need
>of the adjustments in the second patch.
>
>Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>---
> t/db_dependent/Serials/GetFictiveIssueNumber.t | 104 +++++++++++++++++++++++++
> t/db_dependent/Serials/GetNextDate.t           |  47 +++++++++--
> 2 files changed, 143 insertions(+), 8 deletions(-)
> create mode 100644 t/db_dependent/Serials/GetFictiveIssueNumber.t
>
>diff --git a/t/db_dependent/Serials/GetFictiveIssueNumber.t b/t/db_dependent/Serials/GetFictiveIssueNumber.t
>new file mode 100644
>index 0000000..0c9c5a2
>--- /dev/null
>+++ b/t/db_dependent/Serials/GetFictiveIssueNumber.t
>@@ -0,0 +1,104 @@
>+#!/usr/bin/perl
>+
>+# This test deals with GetFictiveIssueNumber (from C4::Serials)
>+
>+use Modern::Perl;
>+use Test::More tests => 2;
>+
>+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;
>+
>+subtest 'Tests for irregular frequency' => sub {
>+    plan tests => 2;
>+
>+    # Add a frequency
>+    my $freq_irr = AddSubscriptionFrequency({
>+        description => "Irregular",
>+        unit => undef,
>+    });
>+
>+    # Test it
>+    my $subscription = {
>+        periodicity => $freq_irr,
>+        firstacquidate => '1972-02-07',
>+    };
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-12-31'), 0, 'Irregular: should be zero' );
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-12-31'), 0, 'Irregular: still zero' );
>+};
>+
>+subtest 'Tests for yearly frequencies' => sub {
>+    plan tests => 10;
>+
>+    # First add a few frequencies
>+    my $freq_1i_1y = AddSubscriptionFrequency({
>+        description => "1 issue per year",
>+        unit => 'year',
>+        issuesperunit => 1,
>+        unitsperissue => 1,
>+    });
>+    my $freq_1i_3y = AddSubscriptionFrequency({
>+        description => "1 issue per 3 years",
>+        unit => 'year',
>+        issuesperunit => 1,
>+        unitsperissue => 3,
>+    });
>+    my $freq_5i_1y = AddSubscriptionFrequency({
>+        description => "5 issues per year",
>+        unit => 'year',
>+        issuesperunit => 5,
>+        unitsperissue => 1,
>+    });
>+    my $freq_366i_1y = AddSubscriptionFrequency({
>+        description => "366 issue per year",
>+        unit => 'year',
>+        issuesperunit => 366,
>+        unitsperissue => 1,
>+    });
>+
>+    # TEST CASE - 1 issue per year
>+    my $subscription = {
>+        periodicity => $freq_1i_1y,
>+        firstacquidate => '1972-02-10',
>+        countissuesperunit => 1,
>+    };
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-09'), 1, 'Feb 9 still 1' );
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-10'), 2, 'Feb 10 goes to 2' );
>+
>+    # TEST CASE - 1 issue per 3 years
>+    $subscription->{periodicity} = $freq_1i_3y;
>+    $subscription->{firstacquidate} = '1972-02-20';
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1975-02-19'), 1, 'Feb 19, 1975 still 1' );
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1975-02-20'), 2, 'Feb 20, 1975 goes to 2' );
>+
>+    # TEST CASE - 5 issues per year
>+    $subscription->{periodicity} = $freq_5i_1y;
>+    $subscription->{firstacquidate} = '1972-02-29'; #leap year
>+    $subscription->{countissuesperunit} = 1;
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-05-11'), 1, 'May 11 still 1' );
>+    $subscription->{countissuesperunit} = 2;
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-05-12'), 2, 'May 12 goes to 2' );
>+    $subscription->{countissuesperunit} = 5;
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-27'), 5, 'Feb 27 should still be 5' );
>+    $subscription->{countissuesperunit} = 1;
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-28'), 6, 'Feb 28 goes to 6' );
>+
>+    # TEST CASE - 366 issues per year (hypothetical example)
>+    # Testing prevention of divide by zero
>+    $subscription->{periodicity} = $freq_366i_1y;
>+    $subscription->{firstacquidate} = '1972-02-29'; #leap year
>+    $subscription->{countissuesperunit} = 366;
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-27'), 366, 'Feb 27 still at 366' );
>+    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-28'), 732, 'Feb 28 goes to 732' );
>+
>+};
>+
>+# TODO: subtest 'Tests for monthly frequencies' => sub {
>+# TODO: subtest 'Tests for weekly frequencies' => sub {
>+# TODO: subtest 'Tests for dayly frequencies' => sub {
>+
>+$schema->storage->txn_rollback;
>diff --git a/t/db_dependent/Serials/GetNextDate.t b/t/db_dependent/Serials/GetNextDate.t
>index fe6059f..44dd529 100644
>--- a/t/db_dependent/Serials/GetNextDate.t
>+++ b/t/db_dependent/Serials/GetNextDate.t
>@@ -1,15 +1,16 @@
> #!/usr/bin/perl
> 
>-use C4::Context;
>-use Test::More tests => 96;
> 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;
>-$dbh->{RaiseError} = 1;
>-$dbh->{AutoCommit} = 0;
> 
>-use C4::Serials::Frequency;
>-use C4::Serials;
> 
> # TEST CASE - 1 issue per day, no irregularities
> my $frequency = {
>@@ -469,10 +470,14 @@ $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 => "1 issue every 2 years",
>+    description => "2 issues per year",
>     unit => 'year',
>     issuesperunit => 2,
>     unitsperissue => 1,
>@@ -512,6 +517,32 @@ 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",
>@@ -538,4 +569,4 @@ is($publisheddate, undef);
> $publisheddate = GetNextDate(undef, undef);
> is($publisheddate, undef);
> 
>-$dbh->rollback;
>+$schema->storage->txn_rollback;
>-- 
>2.1.4

Actions: View | Diff | Splinter Review

Attachments on bug 18356: 63470 | 63471 | 63784 | 63785 | 63875 | 63876 | 64021 | 64022 | 64310 | 64311