From b3e44063441330ae7ef9eede5d2cf1f8a80882db Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 25 Jun 2014 12:30:00 -0400 Subject: [PATCH] Bug 11872 [QA Followup] - Unit Tests --- t/db_dependent/Circulation.t | 11 +++++++++-- 1 files changed, 9 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Circulation.t b/t/db_dependent/Circulation.t index 6b25208..21ad150 100755 --- a/t/db_dependent/Circulation.t +++ b/t/db_dependent/Circulation.t @@ -9,7 +9,7 @@ use C4::Items; use C4::Members; use C4::Reserves; -use Test::More tests => 48; +use Test::More tests => 50; BEGIN { use_ok('C4::Circulation'); @@ -244,7 +244,7 @@ C4::Context->dbh->do("DELETE FROM accountlines"); my $datedue = AddIssue( $renewing_borrower, $barcode); is (defined $datedue, 1, "Item 1 checked out, due date: $datedue"); - my $datedue2 = AddIssue( $renewing_borrower, $barcode2); + my $datedue2 = AddIssue( $renewing_borrower, $barcode2, DateTime->now(time_zone => C4::Context->tz())->subtract( days => 1 ) ); is (defined $datedue2, 1, "Item 2 checked out, due date: $datedue2"); my $borrowing_borrowernumber = GetItemIssue($itemnumber)->{borrowernumber}; @@ -253,6 +253,13 @@ C4::Context->dbh->do("DELETE FROM accountlines"); my ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber, 1); is( $renewokay, 1, 'Can renew, no holds for this title or item'); + my $overdues = C4::Overdues::Getoverdues(); + ok( scalar @$overdues == 1, 'One overdue item found as expected' ); + $dbh->do("UPDATE items SET itemlost = 1 WHERE itemnumber = ?", undef, $itemnumber2); + $overdues = C4::Overdues::Getoverdues(); + ok( scalar @$overdues == 0, 'Zero overdue items found as expected, only overdue item is marked as lost' ); + + diag("Biblio-level hold, renewal test"); AddReserve( -- 1.7.2.5