From 304b8d7de3c75c0002528bcd4b142ed3340d452a Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Wed, 18 Sep 2013 16:56:23 +0000 Subject: [PATCH] Bug 10599: (follow-up) fix incomplete test case Signed-off-by: Galen Charlton --- t/db_dependent/Circulation/IsItemIssued.t | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Circulation/IsItemIssued.t b/t/db_dependent/Circulation/IsItemIssued.t index b02dba8e6c..b9f3e2bf45 100644 --- a/t/db_dependent/Circulation/IsItemIssued.t +++ b/t/db_dependent/Circulation/IsItemIssued.t @@ -1,5 +1,5 @@ use Modern::Perl; -use Test::More tests => 1; +use Test::More tests => 2; use C4::Biblio; use C4::Circulation; @@ -30,7 +30,10 @@ my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' ); my ( undef, undef, $itemnumber ) = AddItem( { homebranch => 'CPL', holdingbranch => 'CPL', barcode => 'i_dont_exist' }, $biblionumber ); my $item = GetItem( $itemnumber ); -is ( IsItemIssued( $item->{itemnumber} ), 1, "Item is issued" ); +is ( IsItemIssued( $item->{itemnumber} ), 0, "item is not on loan at first" ); + +AddIssue($borrower, 'i_dont_exist'); +is ( IsItemIssued( $item->{itemnumber} ), 1, "item is now on loan" ); $dbh->rollback; -- 2.39.5