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 => 96; |
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 |
- |
|
|