- 

#!/usr/bin/env perl

use strict;

use warnings;

use DateTime;

use DateTime::Duration;

use Test::More tests => 10;

use Test::MockModule;

use C4::Circulation;

use C4::Overdues;

use Koha::DateUtils qw( dt_from_string );

use Koha::DiscreteCalendar;

use t::lib::Mocks;

use t::lib::TestBuilder;

my $dbh = C4::Context->dbh();

my $today = DateTime->today;

my $schema = Koha::Database->new->schema;

$schema->storage->txn_begin;

my $branch1 = 'Library1';

# This test assumes branchcode 'UPL' exist inside discrete_calendar table of your database

# Should probably find a better alternative

$schema->resultset('DiscreteCalendar')->search({

    branchcode  => 'UPL'

})->update_all({

    is_opened    => 1,

    holiday_type => '',

    note         => '',

    open_hour    => '08:00:00',

    close_hour   => '16:00:00'

});

Koha::DiscreteCalendar->add_new_branch('UPL', $branch1);

my $calendar = Koha::DiscreteCalendar->new( { branchcode => $branch1 } );

#######################################

# Add minutes and open minutes between

#######################################

my $start_date = dt_from_string->set( hour => 14, minute => 15, second => 0);

my $end_date = dt_from_string->set( hour => 14, minute => 20, second => 0);

is($calendar->open_minutes_between($start_date, $end_date), 5, "Item returned 5 minutes late");

#Adding 10 minutes

my $ten_mins_duration = DateTime::Duration->new( minutes => 10);

is($calendar->addDuration($start_date, $ten_mins_duration, 'minutes' ),

    dt_from_string->set( hour => 14, minute => 25, second => 0),

        'Added 10 minutes to loan' );

#Adding 10 minutes, passed closing hour

$start_date = dt_from_string->set( hour => 15, minute => 51, second => 0 );

is($calendar->addDuration($start_date, $ten_mins_duration, 'minutes' ),

    dt_from_string->set( hour => 16, minute => 0, second => 0),

        'Added 10 minutes, due date passed closing hours, set due date to same day at close hour' );

#Item returned next open day after a holiday.

my $open_minutes_today = DateTime->today->add(hours =>10, minutes => 10);

my $open_minutes_tomorrow = DateTime->today->add(days =>1);

my $open_minutes_day_after_tomorrow = DateTime->today->add(days => 2, hours =>11);

$calendar->edit_holiday({

    title => "Single holiday Today",

    holiday_type => $Koha::DiscreteCalendar::HOLIDAYS->{EXCEPTION},

    start_date => $open_minutes_tomorrow,

    end_date =>$open_minutes_tomorrow

});

is($calendar->open_minutes_between($open_minutes_today, $open_minutes_day_after_tomorrow),

    530,

    "Correct open minutes, with a holiday in between");

######################

# DueDate calculation

######################

#Set syspref ReturnBeforeExpiry = 1 and useDaysMode = 'Days'

t::lib::Mocks::mock_preference('ReturnBeforeExpiry', 1);

t::lib::Mocks::mock_preference('useDaysMode', 'Days');

my $issuelength = 25;

my $renewalperiod = 5;

my $lengthunit = 'minutes';

my $dateexpiry = DateTime->today->add(years => 1);

my $mock_loan_length = [

    ['issuelength', 'renewalperiod', 'lengthunit'],

    [$issuelength, $renewalperiod, $lengthunit]

];

my $categorycode = 'X';

my $itemtype = 'MINUTES';

my $borrower = {categorycode => 'X', dateexpiry => $dateexpiry};

$dbh->do("INSERT INTO itemtypes (itemtype, parent_type) VALUES('$itemtype', NULL)");

$dbh->do("INSERT INTO categories (categorycode) VALUES('$categorycode')");

$dbh->do("INSERT INTO branches (branchcode, branchname) VALUES('$branch1', '$branch1')");

$dbh->do("INSERT INTO circulation_rules (branchcode, categorycode, itemtype, rule_name, rule_value) VALUES('$branch1', '$categorycode', '$itemtype', 'issuelength', '$issuelength')");

$dbh->do("INSERT INTO circulation_rules (branchcode, categorycode, itemtype, rule_name, rule_value) VALUES('$branch1', '$categorycode', '$itemtype', 'lengthunit', '$lengthunit')");

my $date = C4::Circulation::CalcDateDue( $today, $itemtype, $branch1, $borrower );

is($date, DateTime->today->add(minutes => $issuelength), "Due date calculated correctly");

#passed closing hour

$issuelength = 1300;

$dbh->do("UPDATE circulation_rules SET rule_value=$issuelength where branchcode='$branch1' and itemtype='$itemtype' and rule_name='issuelength'");

$date = C4::Circulation::CalcDateDue( $today, $itemtype, $branch1, $borrower );

is($date, DateTime->today->add(hours =>16), "Due date passed close hour, item due at close hour");

#############################

# Chargeable minutes between

############################

$issuelength = 25;

$dbh->do("UPDATE circulation_rules SET rule_value=$issuelength where branchcode='$branch1' and itemtype='$itemtype' and rule_name='issuelength'");

my $date_due = DateTime->today;

my $date_returned = DateTime->today->add(minutes => 40);

my $chargeable_units = C4::Overdues::get_chargeable_units('minutes', $date_due, $date_returned, $branch1);

is($chargeable_units, 40, "40 minutes of use");

######################

# Fines calculation

#####################

my $builder = t::lib::TestBuilder->new();

my $category = $builder->build(

    {

        source => 'Category',

    }

);

my $patron = $builder->build(

    {

        source => 'Borrower',

        value  => {

            categorycode => $category->{categorycode},

            branchcode   => $branch1,

        },

    }

);

my $biblio = $builder->build(

    {

        source => 'Biblio',

        value  => {

            branchcode => $branch1,

        },

    }

);

my $item = $builder->build(

    {

        source => 'Item',

        value  => {

            biblionumber     => $biblio->{biblionumber},

            homebranch       => $branch1,

            holdingbranch    => $branch1,

            replacementprice => '5.00',

        },

    }

);

my $rule = $builder->schema->resultset('CirculationRule')->search({

    branchcode                    => undef,

    categorycode                  => undef,

    itemtype                      => undef,

});

$rule->delete_all if $rule;

# FinesIncludeGracePeriod included

t::lib::Mocks::mock_preference('FinesIncludeGracePeriod', 1);

$builder->build(

    {

        source => 'CirculationRule',

        value  => {

            branchcode                    => undef,

            categorycode                  => undef,

            itemtype                      => undef,

            rule_name                     => 'fine',

            rule_value                    => '1',

        },

    }

);

$builder->build(

    {

        source => 'CirculationRule',

        value  => {

            branchcode                    => undef,

            categorycode                  => undef,

            itemtype                      => undef,

            rule_name                     => 'lengthunit',

            rule_value                    => 'minutes',

        },

    }

);

$builder->build(

    {

        source => 'CirculationRule',

        value  => {

            branchcode                    => undef,

            categorycode                  => undef,

            itemtype                      => undef,

            rule_name                     => 'finedays',

            rule_value                    => 0,

        },

    }

);

$builder->build(

    {

        source => 'CirculationRule',

        value  => {

            branchcode                    => undef,

            categorycode                  => undef,

            itemtype                      => undef,

            rule_name                     => 'firstremind',

            rule_value                    => 5,

        },

    }

);

$builder->build(

    {

        source => 'CirculationRule',

        value  => {

            branchcode                    => undef,

            categorycode                  => undef,

            itemtype                      => undef,

            rule_name                     => 'chargeperiod',

            rule_value                    => 1,

        },

    }

);

$builder->build(

    {

        source => 'CirculationRule',

        value  => {

            branchcode                    => undef,

            categorycode                  => undef,

            itemtype                      => undef,

            rule_name                     => 'overduefinescap',

            rule_value                    => 9000,

        },

    }

);

$builder->build(

    {

        source => 'CirculationRule',

        value  => {

            branchcode                    => undef,

            categorycode                  => undef,

            itemtype                      => undef,

            rule_name                     => 'cap_fine_to_replacement_price',

            rule_value                    => 0,

        },

    }

);

my $start_dt = dt_from_string->set( hour => 15, minute => 0, second => 0);

my $end_dt = dt_from_string->set( hour => 15, minute => 4, second => 0);

my @amount = C4::Overdues::CalcFine( $item, $patron->{categorycode}, $branch1, $start_dt, $end_dt );

is($amount[0], 0, "No fine when under the fine grace period");

$end_dt = dt_from_string->set( hour => 15, minute => 6, second => 0);

@amount = C4::Overdues::CalcFine( $item, $patron->{categorycode}, $branch1, $start_dt, $end_dt );

is($amount[0], 6, "6\$ fine for 6 minutes delay, fine grace period included");

# FinesIncludeGracePeriod not included

t::lib::Mocks::mock_preference('FinesIncludeGracePeriod', 0);

@amount = C4::Overdues::CalcFine( $item, $patron->{categorycode}, $branch1, $start_dt, $end_dt );

is($amount[0], 1, "1\$ fine for 6 minutes delay, fine grace period not included");

$schema->storage->txn_rollback;

1;