View | Details | Raw Unified | Return to bug 14390
Collapse All | Expand All

(-)a/t/db_dependent/Circulation.t (-6 / +14 lines)
Lines 23-35 use C4::Branch; Link Here
23
use C4::Items;
23
use C4::Items;
24
use C4::Members;
24
use C4::Members;
25
use C4::Reserves;
25
use C4::Reserves;
26
use C4::Overdues qw(UpdateFine);
26
use C4::Overdues qw(UpdateFine CalcFine);
27
use Koha::DateUtils;
27
use Koha::DateUtils;
28
use Koha::Database;
28
use Koha::Database;
29
29
30
use t::lib::TestBuilder;
30
use t::lib::TestBuilder;
31
31
32
use Test::More tests => 82;
32
use Test::More tests => 83;
33
33
34
BEGIN {
34
BEGIN {
35
    use_ok('C4::Circulation');
35
    use_ok('C4::Circulation');
Lines 441-449 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
441
    my $datedue6 = AddIssue( $renewing_borrower, $barcode6);
441
    my $datedue6 = AddIssue( $renewing_borrower, $barcode6);
442
    is (defined $datedue6, 1, "Item 2 checked out, due date: $datedue6");
442
    is (defined $datedue6, 1, "Item 2 checked out, due date: $datedue6");
443
443
444
    my $passeddatedue1 = AddIssue($renewing_borrower, $barcode7, DateTime->from_epoch(epoch => 1));
444
    my $now = dt_from_string();
445
    is (defined $passeddatedue1, 1, "Item with passed date due checked out, due date: $passeddatedue1");
445
    my $five_weeks = DateTime::Duration->new(weeks => 5);
446
    my $five_weeks_ago = $now - $five_weeks;
447
448
    my $passeddatedue1 = AddIssue($renewing_borrower, $barcode7, $five_weeks_ago);
449
    is (defined $passeddatedue1, 1, "Item with passed date due checked out, due date: " . $passeddatedue1->date_due);
446
450
451
    my ( $fine ) = CalcFine( GetItem(undef, $barcode7), $renewing_borrower->{categorycode}, $branch, $five_weeks_ago, $now );
452
    C4::Overdues::UpdateFine( $itemnumber7, $renewing_borrower->{borrowernumber}, $fine, 'FU', Koha::DateUtils::output_pref($five_weeks_ago) );
453
    AddRenewal( $renewing_borrower->{borrowernumber}, $itemnumber7, $branch );
454
    $fine = $schema->resultset('Accountline')->single( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } );
455
    is( $fine->accounttype, 'F', 'Fine on renewed item is closed out properly' );
456
    $fine->delete();
447
457
448
    C4::Context->set_preference('OverduesBlockRenewing','blockitem');
458
    C4::Context->set_preference('OverduesBlockRenewing','blockitem');
449
    ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber6);
459
    ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber6);
Lines 562-568 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
562
572
563
    ok( $total_due == 15, 'Borrower only charged fine with both WhenLostForgiveFine and WhenLostChargeReplacementFee disabled' );
573
    ok( $total_due == 15, 'Borrower only charged fine with both WhenLostForgiveFine and WhenLostChargeReplacementFee disabled' );
564
574
565
    my $now = dt_from_string();
566
    my $future = dt_from_string();
575
    my $future = dt_from_string();
567
    $future->add( days => 7 );
576
    $future->add( days => 7 );
568
    my $units = C4::Overdues::get_chargeable_units('days', $future, $now, $library2->{branchcode});
577
    my $units = C4::Overdues::get_chargeable_units('days', $future, $now, $library2->{branchcode});
569
- 

Return to bug 14390