- 

#!/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 $builder = t::lib::TestBuilder->new();

my $branch = $builder->build({ source => 'Branch' })->{ branchcode };

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

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

# 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 => 16, minute => 51, second => 0 );

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

    dt_from_string->set( hour => 17, 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 =>11, 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 circulation_rules (branchcode, categorycode, itemtype, rule_name, rule_value) VALUES('$branch', '$categorycode', '$itemtype', 'issuelength', '$issuelength')");

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

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

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

#passed closing hour

$issuelength = 1300;

Koha::CirculationRules->set_rules(

    {

        categorycode => $categorycode,

        branchcode   => $branch,

        itemtype     => $itemtype,

        rules        => {

            issuelength => $issuelength,

        }

    }

);

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

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

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

# Chargeable minutes between

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

$issuelength = 25;

Koha::CirculationRules->set_rules(

    {

        categorycode => $categorycode,

        branchcode   => $branch,

        itemtype     => $itemtype,

        rules        => {

            issuelength => $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, $branch);

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

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

# Fines calculation

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

my $category = $builder->build(

    {

        source => 'Category',

    }

);

my $patron = $builder->build(

    {

        source => 'Borrower',

        value  => {

            categorycode => $category->{categorycode},

            branchcode   => $branch,

        },

    }

);

my $biblio = $builder->build_sample_biblio();

my $item = $builder->build(

    {

        source => 'Item',

        value  => {

            biblionumber     => $biblio->biblionumber,

            homebranch       => $branch,

            holdingbranch    => $branch,

            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}, $branch, $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}, $branch, $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}, $branch, $start_dt, $end_dt );

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

$schema->storage->txn_rollback;

1;