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

Bug 28575: Add unit tests 

prove t/db_dependent/Circulation.t

Sponsored-by: Rapid City Public Library
Signed-off-by: Andrew Fuerste Henry <andrewfh@dubcolib.org>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Matt Blenkinsop 2024-06-07 10:23:38 +00:00 committed by Katrin Fischer
parent 98b260534a
commit 79985f462b
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 152 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

152
t/db_dependent/Circulation.t
View File

@ -6809,6 +6809,158 @@ subtest 'Test CanBookBeIssued param ignore_reserves (Bug 35322)' => sub {
};
subtest 'NoRefundOnLostFinesPaidAge' => sub {
plan tests => 2;
t::lib::Mocks::mock_preference( 'BlockReturnOfLostItems', 0 );
my $library = $builder->build_object( { class => 'Koha::Libraries' } );
my $patron = $builder->build_object(
{
class => 'Koha::Patrons',
value => { categorycode => $patron_category->{categorycode} }
}
);
my $biblionumber = $builder->build_sample_biblio(
{
branchcode => $library->branchcode,
}
)->biblionumber;
Koha::CirculationRules->search->delete;
Koha::CirculationRules->set_rules(
{
categorycode => undef,
itemtype => undef,
branchcode => undef,
rules => {
issuelength => 14,
lengthunit => 'days',
}
}
);
$builder->build(
{
source => 'CirculationRule',
value => {
branchcode => undef,
categorycode => undef,
itemtype => undef,
rule_name => 'lostreturn',
rule_value => 'refund'
}
}
);
my $item = $builder->build_sample_item(
{
biblionumber => $biblionumber,
library => $library->branchcode,
}
);
my $lost_on = dt_from_string->subtract( days => 5 )->date;
my $issue = AddIssue( $patron, $item->barcode );
LostItem( $item->itemnumber, 'cli', 0 );
$item->_result->itemlost(1);
$item->_result->itemlost_on($lost_on);
$item->_result->update();
my $debit = Koha::Account::Line->new(
{
borrowernumber => $patron->id,
date => '1970-01-01 14:00:01',
amount => 5,
amountoutstanding => 0,
interface => 'commandline',
debit_type_code => 'LOST',
itemnumber => $item->itemnumber
}
)->store();
my $credit = Koha::Account::Line->new(
{
borrowernumber => $patron->id,
date => '1970-01-01 14:00:01',
amountoutstanding => 0,
amount => -5,
interface => 'commandline',
credit_type_code => 'PAYMENT'
}
)->store();
my $offset = Koha::Account::Offset->new(
{
credit_id => $credit->id,
debit_id => $debit->id,
type => 'APPLY',
amount => -5,
created_on => '1971-01-01 14:00:01'
}
)->store();
t::lib::Mocks::mock_preference( 'NoRefundOnLostFinesPaidAge', undef );
my ( $return, $messages ) = AddReturn( $item->barcode, $library->branchcode, undef, dt_from_string );
is( $patron->account->balance, -5, 'Lost fine has been refunded' );
my $patron2 = $builder->build_object(
{
class => 'Koha::Patrons',
value => { categorycode => $patron_category->{categorycode} }
}
);
my $item2 = $builder->build_sample_item(
{
biblionumber => $biblionumber,
library => $library->branchcode,
}
);
my $lost_on2 = dt_from_string->subtract( days => 5 )->date;
my $issue2 = AddIssue( $patron2, $item2->barcode );
LostItem( $item2->itemnumber, 'cli', 0 );
$item2->_result->itemlost(1);
$item2->_result->itemlost_on($lost_on2);
$item2->_result->update();
my $debit2 = Koha::Account::Line->new(
{
borrowernumber => $patron2->id,
date => '1970-01-01 14:00:01',
amount => 5,
amountoutstanding => 0,
interface => 'commandline',
debit_type_code => 'LOST',
itemnumber => $item2->itemnumber
}
)->store();
my $credit2 = Koha::Account::Line->new(
{
borrowernumber => $patron2->id,
date => '1970-01-01 14:00:01',
amount => -5,
amountoutstanding => 0,
interface => 'commandline',
credit_type_code => 'PAYMENT'
}
)->store();
my $offset2 = Koha::Account::Offset->new(
{
credit_id => $credit2->id,
debit_id => $debit2->id,
type => 'APPLY',
amount => -5,
created_on => '1971-01-01 14:00:01'
}
)->store();
t::lib::Mocks::mock_preference( 'NoRefundOnLostFinesPaidAge', 5 );
my ( $return2, $messages2 ) = AddReturn( $item2->barcode, $library->branchcode, undef, dt_from_string );
is(
$patron2->account->balance, 0,
'Lost fine has not been refunded as it is older than NoRefundOnLostFinesPaidAge'
);
};
$schema->storage->txn_rollback;
C4::Context->clear_syspref_cache();