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

(-)a/t/db_dependent/Circulation.t (-6 / +11 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 95;
20
use Test::More tests => 97;
21
21
22
use DateTime;
22
use DateTime;
23
23
Lines 487-496 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
487
    $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );
487
    $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );
488
    is ($new_log_size, $old_log_size + 1, 'renew log successfully added');
488
    is ($new_log_size, $old_log_size + 1, 'renew log successfully added');
489
489
490
490
    my $fines = Koha::Account::Lines->search( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } );
491
    $fine = $schema->resultset('Accountline')->single( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } );
491
    if ( C4::Context->preference('finesMode') eq 'production' ) {
492
    is( $fine->accounttype, 'F', 'Fine on renewed item is closed out properly' );
492
        is( $fines->count, 2 );
493
    $fine->delete();
493
        is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' );
494
        is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' );
495
    } else {
496
        is( $fines->count, 1 );
497
        is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' );
498
    }
499
    $fines->delete();
494
500
495
    t::lib::Mocks::mock_preference('OverduesBlockRenewing','blockitem');
501
    t::lib::Mocks::mock_preference('OverduesBlockRenewing','blockitem');
496
    ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber6);
502
    ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber6);
497
- 

Return to bug 18802