gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 7376: Unit test 

Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
Signed-off-by: Baptiste Wojtkowski <baptiste.wojtkowski@biblibre.com>
Signed-off-by: Mathieu Saby <mathsabypro@gmail.com>
Rebased-by: Victor Grousset/tuxayo <victor@tuxayo.net>
Signed-off-by: Martin Renvoize <martin.renvoize@openfifth.co.uk>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Arthur Suzuki 2024-12-16 10:59:22 +01:00 committed by Lucas Gass
parent c98d1c08a0
commit 5b5bc64e70
No known key found for this signature in database
GPG Key ID: 60B447398B0D36CA
1 changed files with 44 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
t/db_dependent/Circulation.t
View File

@ -19,7 +19,7 @@ use Modern::Perl;
use utf8;
use Test::NoWarnings;
use Test::More tests => 85;
use Test::More tests => 86;
use Test::Exception;
use Test::MockModule;
use Test::Deep qw( cmp_deeply );
@ -2897,6 +2897,49 @@ subtest 'CanBookBeIssued + Koha::Patron->is_debarred|has_overdues' => sub {
);
};
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 'Statistic patrons "X"' => sub {
plan tests => 15;