From 2f43c4c92a24f59aecab6159d976134dd0129174 Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Wed, 31 Aug 2016 15:52:08 +0200
Subject: [PATCH] Bug 17229: Add unit test for BlockExpiredPatronOpacActions
 check

Signed-off-by: Brendan Gallagher <brendan@bywatersolutions.com>
---
 t/db_dependent/Holds.t | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/t/db_dependent/Holds.t b/t/db_dependent/Holds.t
index 2ecbdb4d9a..9ab804829d 100755
--- a/t/db_dependent/Holds.t
+++ b/t/db_dependent/Holds.t
@@ -7,7 +7,7 @@ use t::lib::TestBuilder;
 
 use C4::Context;
 
-use Test::More tests => 61;
+use Test::More tests => 62;
 use MARC::Record;
 
 use C4::Biblio;
@@ -42,7 +42,12 @@ my $dbh     = C4::Context->dbh;
 my $branch_1 = $builder->build({ source => 'Branch' })->{ branchcode };
 my $branch_2 = $builder->build({ source => 'Branch' })->{ branchcode };
 
-my $category = $builder->build({ source => 'Category' });
+my $category = $builder->build({
+    source => 'Category',
+    value => {
+        BlockExpiredPatronOpacActions => -1,
+    },
+});
 
 my $borrowers_count = 5;
 
@@ -131,6 +136,19 @@ my $patron = Koha::Patrons->find( $borrowernumbers[0] );
 $holds = $patron->holds;
 is( $holds->next->borrowernumber, $borrowernumbers[0], "Test Koha::Patron->holds");
 
+my $expired_borrowernumber = Koha::Patron->new({
+        firstname =>  'Expired',
+        surname => 'Patron',
+        categorycode => $category->{categorycode},
+        branchcode => $branch_1,
+	dateexpiry => '2000-01-01',
+    })->store->borrowernumber;
+
+t::lib::Mocks::mock_preference('BlockExpiredPatronOpacActions', 1);
+ok(
+    CanItemBeReserved($expired_borrowernumber, $itemnumber)->{status} eq 'patronExpired',
+    'Expired patron cannot reserve'
+);
 
 $holds = $item->current_holds;
 $first_hold = $holds->next;
-- 
2.20.1