t/db_dependent/Circulation/CalcDateDue.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Test::More tests => 6;
   6 use Test::MockModule;
   7 use DBI;
   8 use DateTime;
   9 use t::lib::Mocks;
  10 use t::lib::TestBuilder;
  11 use C4::Calendar;
  12
  13 use_ok('C4::Circulation');
  14
  15 my $schema = Koha::Database->new->schema;
  16 $schema->storage->txn_begin;
  17 my $builder = t::lib::TestBuilder->new;
  18
  19 my $categorycode = 'B';
  20 my $itemtype = 'MX';
  21 my $branchcode = 'FPL';
  22 my $issuelength = 10;
  23 my $renewalperiod = 5;
  24 my $lengthunit = 'days';
  25
  26 Koha::Database->schema->resultset('Issuingrule')->create({
  27   categorycode => $categorycode,
  28   itemtype => $itemtype,
  29   branchcode => $branchcode,
  30   issuelength => $issuelength,
  31   renewalperiod => $renewalperiod,
  32   lengthunit => $lengthunit,
  33 });
  34
  35 #Set syspref ReturnBeforeExpiry = 1 and useDaysMode = 'Days'
  36 t::lib::Mocks::mock_preference('ReturnBeforeExpiry', 1);
  37 t::lib::Mocks::mock_preference('useDaysMode', 'Days');
  38
  39 my $dateexpiry = '2013-01-01';
  40
  41 my $borrower = {categorycode => 'B', dateexpiry => $dateexpiry};
  42 my $start_date = DateTime->new({year => 2013, month => 2, day => 9});
  43 my $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower );
  44 is($date, $dateexpiry . 'T23:59:00', 'date expiry');
  45 $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower, 1 );
  46
  47
  48 #Set syspref ReturnBeforeExpiry = 1 and useDaysMode != 'Days'
  49 t::lib::Mocks::mock_preference('ReturnBeforeExpiry', 1);
  50 t::lib::Mocks::mock_preference('useDaysMode', 'noDays');
  51
  52 $borrower = {categorycode => 'B', dateexpiry => $dateexpiry};
  53 $start_date = DateTime->new({year => 2013, month => 2, day => 9});
  54 $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower );
  55 is($date, $dateexpiry . 'T23:59:00', 'date expiry with useDaysMode to noDays');
  56
  57 # Let's add a special holiday on 2013-01-01. With ReturnBeforeExpiry and
  58 # useDaysMode different from 'Days', return should forward the dateexpiry.
  59 my $calendar = C4::Calendar->new(branchcode => $branchcode);
  60 $calendar->insert_single_holiday(
  61     day             => 1,
  62     month           => 1,
  63     year            => 2013,
  64     title           =>'holidayTest',
  65     description     => 'holidayDesc'
  66 );
  67 $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower );
  68 is($date, '2012-12-31T23:59:00', 'date expiry should be 2013-01-01 -1 day');
  69
  70
  71 $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower, 1 );
  72
  73
  74 #Set syspref ReturnBeforeExpiry = 0 and useDaysMode = 'Days'
  75 t::lib::Mocks::mock_preference('ReturnBeforeExpiry', 0);
  76 t::lib::Mocks::mock_preference('useDaysMode', 'Days');
  77
  78 $borrower = {categorycode => 'B', dateexpiry => $dateexpiry};
  79 $start_date = DateTime->new({year => 2013, month => 2, day => 9});
  80 $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower );
  81 is($date, '2013-02-' . (9 + $issuelength) . 'T23:59:00', "date expiry ( 9 + $issuelength )");
  82
  83 $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower, 1 );
  84 is($date, '2013-02-' . (9 + $renewalperiod) . 'T23:59:00', "date expiry ( 9 + $renewalperiod )");
  85
  86 $schema->storage->txn_rollback;