From 3cf1fdb8004e0dbe8524440cd8011ca3427bf10e Mon Sep 17 00:00:00 2001
From: Arthur Suzuki <arthur.suzuki@biblibre.com>
Date: Tue, 19 Jan 2021 20:20:11 +0100
Subject: [PATCH] Bug 7376: Unit test

---
 t/db_dependent/Circulation.t | 43 ++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 42 insertions(+), 1 deletion(-)

diff --git a/t/db_dependent/Circulation.t b/t/db_dependent/Circulation.t
index 6258ed80a8..6ae2f9af57 100755
--- a/t/db_dependent/Circulation.t
+++ b/t/db_dependent/Circulation.t
@@ -18,7 +18,7 @@
 use Modern::Perl;
 use utf8;
 
-use Test::More tests => 52;
+use Test::More tests => 53;
 use Test::Exception;
 use Test::MockModule;
 use Test::Deep qw( cmp_deeply );
@@ -1818,6 +1818,47 @@ subtest 'AddIssue & AllowReturnToBranch' => sub {
     # TODO t::lib::Mocks::mock_preference('AllowReturnToBranch', 'homeorholdingbranch');
 };
 
+
+subtest 'CanBookBeReturned + UseBranchTransfertLimits' => sub {
+    plan tests => 6;
+
+    my $homebranch    = $builder->build( { source => 'Branch' } );
+    my $otherbranch   = $builder->build( { source => 'Branch' } );
+    my $patron        = $builder->build( { source => 'Borrower', value => { categorycode => $patron_category->{categorycode} } } );
+
+    my $item = $builder->build_sample_item(
+        {
+            homebranch    => $homebranch->{branchcode},
+            holdingbranch => $homebranch->{branchcode},
+        }
+    );
+
+    t::lib::Mocks::mock_preference( 'AllowReturnToBranch', 'anywhere' );
+    set_userenv($homebranch);
+    my $issue = AddIssue( $patron, $item->barcode );
+    my ($allowed, $message) = C4::Circulation::CanBookBeReturned($item, $otherbranch);
+    is ( 1 , $allowed , 'with AllowReturnToBranch = anywhere and no limits return to other is allowed');
+    is ( undef , $message , 'without limits provides no message');
+
+    t::lib::Mocks::mock_preference( 'UseBranchTransferLimits', '1' );
+    t::lib::Mocks::mock_preference( 'BranchTransferLimitsType', 'itemtype' );
+
+    # set limit
+    my $limit = Koha::Item::Transfer::Limit->new({
+        toBranch => $otherbranch->{branchcode},
+        fromBranch => $item->homebranch,
+        itemtype => $item->effective_itemtype,
+    })->store();
+
+    ($allowed, $message) = C4::Circulation::CanBookBeReturned($item, $otherbranch);
+    is ( 0 , $allowed , 'With transfer limits cannot return to otherbranch');
+    is ( $homebranch->{branchcode} , $message , 'With transfer limits asks return to homebranch');
+
+    ($allowed, $message) = C4::Circulation::CanBookBeReturned($item, $homebranch);
+    is ( 1 , $allowed , 'With transfer limits can return to homebranch');
+    is ( undef , $message , 'With transfer limits and homebranch provides no message');
+};
+
 subtest 'CanBookBeIssued + Koha::Patron->is_debarred|has_overdues' => sub {
     plan tests => 8;
 
-- 
2.11.0