Lines 9-15
use C4::Items;
Link Here
|
9 |
use C4::Members; |
9 |
use C4::Members; |
10 |
use C4::Reserves; |
10 |
use C4::Reserves; |
11 |
|
11 |
|
12 |
use Test::More tests => 48; |
12 |
use Test::More tests => 50; |
13 |
|
13 |
|
14 |
BEGIN { |
14 |
BEGIN { |
15 |
use_ok('C4::Circulation'); |
15 |
use_ok('C4::Circulation'); |
Lines 244-250
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
244 |
my $datedue = AddIssue( $renewing_borrower, $barcode); |
244 |
my $datedue = AddIssue( $renewing_borrower, $barcode); |
245 |
is (defined $datedue, 1, "Item 1 checked out, due date: $datedue"); |
245 |
is (defined $datedue, 1, "Item 1 checked out, due date: $datedue"); |
246 |
|
246 |
|
247 |
my $datedue2 = AddIssue( $renewing_borrower, $barcode2); |
247 |
my $datedue2 = AddIssue( $renewing_borrower, $barcode2, DateTime->now(time_zone => C4::Context->tz())->subtract( days => 1 ) ); |
248 |
is (defined $datedue2, 1, "Item 2 checked out, due date: $datedue2"); |
248 |
is (defined $datedue2, 1, "Item 2 checked out, due date: $datedue2"); |
249 |
|
249 |
|
250 |
my $borrowing_borrowernumber = GetItemIssue($itemnumber)->{borrowernumber}; |
250 |
my $borrowing_borrowernumber = GetItemIssue($itemnumber)->{borrowernumber}; |
Lines 253-258
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
253 |
my ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber, 1); |
253 |
my ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber, 1); |
254 |
is( $renewokay, 1, 'Can renew, no holds for this title or item'); |
254 |
is( $renewokay, 1, 'Can renew, no holds for this title or item'); |
255 |
|
255 |
|
|
|
256 |
my $overdues = C4::Overdues::Getoverdues(); |
257 |
ok( scalar @$overdues == 1, 'One overdue item found as expected' ); |
258 |
$dbh->do("UPDATE items SET itemlost = 1 WHERE itemnumber = ?", undef, $itemnumber2); |
259 |
$overdues = C4::Overdues::Getoverdues(); |
260 |
ok( scalar @$overdues == 0, 'Zero overdue items found as expected, only overdue item is marked as lost' ); |
261 |
|
262 |
|
256 |
|
263 |
|
257 |
diag("Biblio-level hold, renewal test"); |
264 |
diag("Biblio-level hold, renewal test"); |
258 |
AddReserve( |
265 |
AddReserve( |
259 |
- |
|
|