|
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 |
- |
|
|