Martin Renvoize
d661141890
* Update C4::Accounts::chargelostitem * Update C4::Accounts::manualinvoice * Update C4::Circulation::_FixOverduesOnReturn * Update C4::Circulation::_FixAccountForLostAndReturned * Update C4::Overdues::UpdateFine * Update C4::Overdues::GetFine * Update C4::Overdues::GetOverduesForBranch * Update Koha::Account->pay * Update Koha::Account->add_debit * Update Koha::Account->non_issues_charges * Update Koha::Account::Line->apply * Update Koha::Account::Line->adjust * Update controller scripts * Update reports scripts * Update tests Test Plan 1) Run the test suit and ensure everything still passes 2) Test reports/cash_register_stats still works 3) Test that adding manual invoices still works 4) Test that making payments still works 5) Test that lost item fee handling still works 6) Test that invoice printing still works 7) Test that the sco still works Signed-off-by: Séverine QUEUNE <severine.queune@bulac.fr> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
97 lines
3.1 KiB
Perl
97 lines
3.1 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use Test::More tests => 6;
|
|
|
|
use t::lib::TestBuilder;
|
|
use t::lib::Mocks;
|
|
|
|
use C4::Circulation qw( CanBookBeIssued );
|
|
use Koha::Account;
|
|
use Koha::Account::Lines;
|
|
use Koha::Account::Offsets;
|
|
use Koha::Patron::Relationship;
|
|
|
|
my $schema = Koha::Database->new->schema;
|
|
$schema->storage->txn_begin;
|
|
|
|
my $builder = t::lib::TestBuilder->new();
|
|
|
|
my $item = $builder->build(
|
|
{
|
|
source => 'Item',
|
|
value => {
|
|
biblionumber => $builder->build( { source => 'Biblioitem' } )->{biblionumber},
|
|
notforloan => 0,
|
|
withdrawn => 0
|
|
}
|
|
}
|
|
);
|
|
|
|
my $patron_category = $builder->build({ source => 'Category', value => { categorycode => 'NOT_X', category_type => 'P', enrolmentfee => 0 } });
|
|
my $patron = $builder->build_object(
|
|
{
|
|
class => 'Koha::Patrons',
|
|
value => {
|
|
categorycode => $patron_category->{categorycode},
|
|
}
|
|
}
|
|
);
|
|
|
|
my $guarantee = $builder->build_object(
|
|
{
|
|
class => 'Koha::Patrons',
|
|
value => {
|
|
patron_category => $patron_category->{categorycode},
|
|
}
|
|
}
|
|
);
|
|
|
|
my $r = $builder->build_object(
|
|
{
|
|
class => 'Koha::Patron::Relationships',
|
|
value => {
|
|
guarantor_id => $patron->id,
|
|
guarantee_id => $guarantee->id,
|
|
relationship => 'parent',
|
|
}
|
|
}
|
|
);
|
|
|
|
t::lib::Mocks::mock_preference( 'NoIssuesChargeGuarantees', '5.00' );
|
|
t::lib::Mocks::mock_preference( 'AllowFineOverride', '' );
|
|
|
|
my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->{barcode} );
|
|
is( $issuingimpossible->{DEBT_GUARANTEES}, undef, "Patron can check out item" );
|
|
|
|
my $account = Koha::Account->new( { patron_id => $guarantee->id } );
|
|
$account->add_debit({ amount => 10.00, type => 'lost_item', interface => 'test' });
|
|
( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->{barcode} );
|
|
is( $issuingimpossible->{DEBT_GUARANTEES} + 0, '10.00' + 0, "Patron cannot check out item due to debt for guarantee" );
|
|
|
|
my $accountline = Koha::Account::Lines->search({ borrowernumber => $guarantee->id })->next();
|
|
is( $accountline->amountoutstanding, "10.000000", "Found 10.00 amount outstanding" );
|
|
is( $accountline->debit_type_code, "LOST", "Debit type is LOST" );
|
|
|
|
my $offset = Koha::Account::Offsets->search({ debit_id => $accountline->id })->next();
|
|
is( $offset->type, 'Lost Item', 'Got correct offset type' );
|
|
is( $offset->amount, '10.000000', 'Got amount of $10.00' );
|
|
|
|
$schema->storage->txn_rollback;
|
|
|