From 3cf1fdb8004e0dbe8524440cd8011ca3427bf10e Mon Sep 17 00:00:00 2001 From: Arthur Suzuki 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