Bug 13851: (QA followup) Unit Tests
authorKyle M Hall <kyle@bywatersolutions.com>
Wed, 17 Jun 2015 02:53:10 +0000 (22:53 -0400)
committerTomas Cohen Arazi <tomascohen@theke.io>
Wed, 29 Jul 2015 18:47:28 +0000 (15:47 -0300)
Signed-off-by: Jonathan Druart <jonathan.druart@koha-community.org>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
t/db_dependent/Holds.t

index 5a480d8..01e67db 100755 (executable)
@@ -6,13 +6,15 @@ use t::lib::Mocks;
 use C4::Context;
 use C4::Branch;
 
-use Test::More tests => 41;
+use Test::More tests => 49;
 use MARC::Record;
 use C4::Biblio;
 use C4::Items;
 use C4::Members;
 use C4::Calendar;
 
+use Koha::Holds;
+
 use Koha::DateUtils qw( dt_from_string output_pref );
 
 BEGIN {
@@ -30,6 +32,7 @@ $dbh->{RaiseError} = 1;
 my $borrowers_count = 5;
 
 $dbh->do('DELETE FROM itemtypes');
+$dbh->do('DELETE FROM reserves');
 my $insert_sth = $dbh->prepare('INSERT INTO itemtypes (itemtype) VALUES (?)');
 $insert_sth->execute('CAN');
 $insert_sth->execute('CANNOT');
@@ -88,6 +91,20 @@ is( $borrowernumber, $borrowernumbers[0], "GetReservesFromItemnumber should retu
 is( $branchcode, 'CPL', "GetReservesFromItemnumber should return a valid branchcode");
 ok($reserve_id, "Test GetReservesFromItemnumber()");
 
+my $hold = Koha::Holds->find( $reserve_id );
+ok( $hold, "Koha::Holds found the hold" );
+my $hold_biblio = $hold->biblio();
+ok( $hold_biblio, "Got biblio using biblio() method" );
+ok( $hold_biblio == $hold->biblio(), "biblio method returns stashed biblio" );
+my $hold_item = $hold->item();
+ok( $hold_item, "Got item using item() method" );
+ok( $hold_item == $hold->item(), "item method returns stashed item" );
+my $hold_branch = $hold->branch();
+ok( $hold_branch, "Got branch using branch() method" );
+ok( $hold_branch == $hold->branch(), "branch method returns stashed branch" );
+my $hold_found = $hold->found();
+$hold->set({ found => 'W'})->store();
+is( Koha::Holds->waiting()->count(), 1, "Koha::Holds->waiting returns waiting holds" );
 
 my ( $reserve ) = GetReservesFromBorrowernumber($borrowernumbers[0]);
 ok( $reserve->{'borrowernumber'} eq $borrowernumbers[0], "Test GetReservesFromBorrowernumber()");