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

(-)a/t/db_dependent/Circulation.t (-6 / +7 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 96;
20
use Test::More tests => 98;
21
21
22
use DateTime;
22
use DateTime;
23
23
Lines 460-465 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
460
    my $now = dt_from_string();
460
    my $now = dt_from_string();
461
    my $five_weeks = DateTime::Duration->new(weeks => 5);
461
    my $five_weeks = DateTime::Duration->new(weeks => 5);
462
    my $five_weeks_ago = $now - $five_weeks;
462
    my $five_weeks_ago = $now - $five_weeks;
463
    t::lib::Mocks::mock_preference('finesMode', 'production');
463
464
464
    my $passeddatedue1 = AddIssue($renewing_borrower, $barcode7, $five_weeks_ago);
465
    my $passeddatedue1 = AddIssue($renewing_borrower, $barcode7, $five_weeks_ago);
465
    is (defined $passeddatedue1, 1, "Item with passed date due checked out, due date: " . $passeddatedue1->date_due);
466
    is (defined $passeddatedue1, 1, "Item with passed date due checked out, due date: " . $passeddatedue1->date_due);
Lines 489-498 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
489
    $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );
490
    $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );
490
    is ($new_log_size, $old_log_size + 1, 'renew log successfully added');
491
    is ($new_log_size, $old_log_size + 1, 'renew log successfully added');
491
492
492
493
    my $fines = Koha::Account::Lines->search( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } );
493
    $fine = $schema->resultset('Accountline')->single( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } );
494
    is( $fines->count, 2 );
494
    is( $fine->accounttype, 'F', 'Fine on renewed item is closed out properly' );
495
    is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' );
495
    $fine->delete();
496
    is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' );
497
    $fines->delete();
496
498
497
    t::lib::Mocks::mock_preference('OverduesBlockRenewing','blockitem');
499
    t::lib::Mocks::mock_preference('OverduesBlockRenewing','blockitem');
498
    ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber6);
500
    ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber6);
499
- 

Return to bug 18802