Lines 17-26
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 91; |
20 |
use Test::More tests => 92; |
21 |
|
21 |
|
22 |
BEGIN { |
22 |
BEGIN { |
23 |
require_ok('C4::Circulation'); |
23 |
use_ok('C4::Log') |
24 |
} |
24 |
} |
25 |
|
25 |
|
26 |
use DateTime; |
26 |
use DateTime; |
Lines 473-479
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
473 |
due => Koha::DateUtils::output_pref($five_weeks_ago) |
473 |
due => Koha::DateUtils::output_pref($five_weeks_ago) |
474 |
} |
474 |
} |
475 |
); |
475 |
); |
|
|
476 |
my $date = output_pref( { dt => dt_from_string(), datenonly => 1, dateformat => 'iso' } ); |
477 |
my $old_log_size = scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEW"]) } ); |
476 |
AddRenewal( $renewing_borrower->{borrowernumber}, $itemnumber7, $branch ); |
478 |
AddRenewal( $renewing_borrower->{borrowernumber}, $itemnumber7, $branch ); |
|
|
479 |
my $new_log_size = scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEW"]) } ); |
480 |
is ($new_log_size -1, $old_log_size, 'renew log successfuly added'); |
481 |
|
477 |
$fine = $schema->resultset('Accountline')->single( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } ); |
482 |
$fine = $schema->resultset('Accountline')->single( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } ); |
478 |
is( $fine->accounttype, 'F', 'Fine on renewed item is closed out properly' ); |
483 |
is( $fine->accounttype, 'F', 'Fine on renewed item is closed out properly' ); |
479 |
$fine->delete(); |
484 |
$fine->delete(); |
480 |
- |
|
|