#!/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 => 8;

    # 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 issue per year",

        unit => 'year',

        issuesperunit => 5,

        unitsperissue => 1,

    });

    # TEST CASE - 1 issue per year

    # Here we should only test the subtraction of both years

    my $subscription = {

        periodicity => $freq_1i_1y,

        firstacquidate => '1972-02-10',

        countissuesperunit => 1,

    };

    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-12-31'), 1, 'Dec 31 still 1' );

    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-01-01'), 2, 'Jan 1 goes to 2' );

    # TEST CASE - 1 issue per 3 years

    # Here we should test the subtraction of both years divided by 3

    $subscription->{periodicity} = $freq_1i_3y;

    $subscription->{firstacquidate} = '1972-02-20';

    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-01-01'), 1, '1973 still 1' );

    is( C4::Serials::GetFictiveIssueNumber($subscription, '1974-01-01'), 1, '1974 still 1' );

    is( C4::Serials::GetFictiveIssueNumber($subscription, '1975-01-01'), 2, '1975 still 2' );

    # TEST CASE - 5 issues per year

    # Here we look at the subtraction AND the internal countissuesperunit

    # We do not really care about the accuracy of the internal count here

    $subscription->{periodicity} = $freq_5i_1y;

    $subscription->{firstacquidate} = '1972-02-29'; #leap year

    $subscription->{countissuesperunit} = 3;

    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-06-01'), 3, 'Should be 3 due to internal count' );

    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-02-28'), 3, 'Should still be 3 due to internal count' );

    is( C4::Serials::GetFictiveIssueNumber($subscription, '1973-03-01'), 8, 'Should jump to 8 due to internal count' );

};

# 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;

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;

# 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 - 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' );

# Now move one back in the cycle and push back 49 days; we expect correction

# because 40 days are added and the difference (9 days) is <= issues per unit.

$subscription->{countissuesperunit} = 9;

$publisheddate = GetNextDate( $subscription, '1973-06-22' );

is( $publisheddate, '1973-08-10', 'Freq 9/yr, 3 years passed, corrected' );

# Set back again, one day more. Now we do not expect correction.

$subscription->{countissuesperunit} = 9;

$publisheddate = GetNextDate( $subscription, '1973-06-21' );

is( $publisheddate, '1973-07-31', 'Freq 9/yr, 3 years passed, not corrected' );