From 6d3c4b3cb063fbf49da6816905dde708eafab51b Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Thu, 25 Jun 2015 15:17:12 -0400
Subject: [PATCH] Bug 13517 [QA Followup] - Add unit tests

---
 t/db_dependent/Hold.t |   21 +++++++++++++++++++--
 1 files changed, 19 insertions(+), 2 deletions(-)

diff --git a/t/db_dependent/Hold.t b/t/db_dependent/Hold.t
index ccd24cd..a91917c 100755
--- a/t/db_dependent/Hold.t
+++ b/t/db_dependent/Hold.t
@@ -19,8 +19,9 @@ use Modern::Perl;
 
 use C4::Context;
 use Koha::Database;
+use Koha::Borrowers;
 
-use Test::More tests => 8;
+use Test::More tests => 16;
 
 use_ok('Koha::Hold');
 
@@ -30,13 +31,25 @@ $schema->storage->txn_begin();
 my $dbh = C4::Context->dbh;
 $dbh->{RaiseError} = 1;
 
-my $hold = Koha::Hold->new({ found => 'W', waitingdate => '2000-01-01'});
+my $borrower = Koha::Borrowers->search()->next();
+my $hold = Koha::Hold->new(
+    {
+        found          => 'W',
+        waitingdate    => '2000-01-01',
+        borrowernumber => $borrower->borrowernumber(),
+    }
+);
+my $hold_borrower = $hold->borrower();
+ok( $hold_borrower, 'Got hold borrower' );
+is( $hold_borrower->borrowernumber(), $borrower->borrowernumber(), 'Hold borrower matches correct borrower' );
 
 C4::Context->set_preference( 'ReservesMaxPickUpDelay', '' );
 my $dt = $hold->waiting_expires_on();
 is( $dt, undef, "Koha::Hold->waiting_expires_on returns undef if ReservesMaxPickUpDelay is not set");
 
 is( $hold->is_waiting, 1, 'The hold is waiting' );
+is( $hold->is_found, 1, 'The hold is found');
+isnt( $hold->is_in_transit,  'The hold is not in transit' );
 
 C4::Context->set_preference( 'ReservesMaxPickUpDelay', '5' );
 $dt = $hold->waiting_expires_on();
@@ -46,11 +59,15 @@ $hold->found('T');
 $dt = $hold->waiting_expires_on();
 is( $dt, undef, "Koha::Hold->waiting_expires_on returns undef if found is not 'W' ( Set to 'T' )");
 isnt( $hold->is_waiting, 1, 'The hold is not waiting (T)' );
+is( $hold->is_found, 1, 'The hold is found');
+is( $hold->is_in_transit, 1, 'The hold is in transit' );
 
 $hold->found(q{});
 $dt = $hold->waiting_expires_on();
 is( $dt, undef, "Koha::Hold->waiting_expires_on returns undef if found is not 'W' ( Set to empty string )");
 isnt( $hold->is_waiting, 1, 'The hold is not waiting (W)' );
+is( $hold->is_found, 0, 'The hold is not found' );
+isnt( $hold->is_in_transit, 'The hold is not in transit' );
 
 $schema->storage->txn_rollback();
 
-- 
1.7.2.5