Bug 28924: (QA follow-up): Fix unit tests

Sponsored-by: Cuyahoga County Public Library <https://cuyahogalibrary.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-14 14:47:57 +00:00 committed by Katrin Fischer
parent 132b22bbfa
commit e147f7b60c
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
3 changed files with 18 additions and 16 deletions

View File

@ -40,7 +40,7 @@ my $patron_category = $builder->build(
source => 'Category',
value => {
categorycode => 'NOT_X', category_type => 'P', enrolmentfee => 0, noissueschargeguarantees => 0,
noissuescharge => 0, noissueschargeguarantorswithguarantees => 0
noissuescharge => 0, noissueschargeguarantorswithguarantees => 0
}
}
);
@ -86,7 +86,10 @@ is( $issuingimpossible->{DEBT_GUARANTEES} + 0, '10.00' + 0, "Patron cannot check
$patron->category->noissueschargeguarantees(11);
( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->barcode );
is( $issuingimpossible->{DEBT_GUARANTEES}, undef, "Patron can check out item as the patron category limit is now higher than 10" );
is(
$issuingimpossible->{DEBT_GUARANTEES}, undef,
"Patron can check out item as the patron category limit is now higher than 10"
);
my $accountline = Koha::Account::Lines->search({ borrowernumber => $guarantee->id })->next();
is( $accountline->amountoutstanding+0, 10, "Found 10.00 amount outstanding" );

View File

@ -2412,14 +2412,14 @@ subtest 'is_patron_inside_charge_limits() tests' => sub {
)->store;
my $patron_borrowing_status;
$patron_borrowing_status = $patron->is_patron_inside_charge_limits( { patron => $patron } );
$patron_borrowing_status = $patron->is_patron_inside_charge_limits();
is( $patron_borrowing_status->{noissuescharge}->{charge}, 11, "Only patron's fines are reported in total" );
is( $patron_borrowing_status->{noissuescharge}->{limit}, 10, "Limit correctly identified at category level" );
is( $patron_borrowing_status->{noissuescharge}->{overlimit}, 1, "Patron is over the charge limit" );
$patron->category->noissuescharge(undef);
$patron_borrowing_status = $patron->is_patron_inside_charge_limits( { patron => $patron } );
$patron_borrowing_status = $patron->is_patron_inside_charge_limits();
is( $patron_borrowing_status->{noissuescharge}->{limit}, 50, "Limit correctly identified at global syspref level" );
is( $patron_borrowing_status->{noissuescharge}->{charge}, 11, "Charges correctly identified" );
is( $patron_borrowing_status->{noissuescharge}->{overlimit}, 0, "Patron is within the charge limit" );
@ -2432,7 +2432,7 @@ subtest 'is_patron_inside_charge_limits() tests' => sub {
is( $patron_borrowing_status->{NoIssuesChargeGuarantees}->{overlimit}, 1, "Patron is over the charge limit" );
$patron->category->noissueschargeguarantees(12);
$patron_borrowing_status = $patron->is_patron_inside_charge_limits( { patron => $patron } );
$patron_borrowing_status = $patron->is_patron_inside_charge_limits();
is(
$patron_borrowing_status->{NoIssuesChargeGuarantees}->{limit}, 12,
"Limit correctly identified at patron category level"
@ -2441,12 +2441,12 @@ subtest 'is_patron_inside_charge_limits() tests' => sub {
is( $patron_borrowing_status->{NoIssuesChargeGuarantees}->{overlimit}, 0, "Patron is inside the charge limit" );
is(
$patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{limit}, 0,
$patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{limit}, undef,
"Limit correctly identified as not set at either patron category or global syspref level"
);
is(
$patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{charge}, 22.22,
"Charges correctly identified"
$patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{charge}, 0,
"Charges ignored as there is no limit set at either patron category or global syspref level"
);
is(
$patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{overlimit}, 0,
@ -2455,7 +2455,7 @@ subtest 'is_patron_inside_charge_limits() tests' => sub {
$patron->category->noissueschargeguarantorswithguarantees(23);
t::lib::Mocks::mock_preference( 'NoIssuesChargeGuarantorsWithGuarantees', 20 );
$patron_borrowing_status = $patron->is_patron_inside_charge_limits( { patron => $patron } );
$patron_borrowing_status = $patron->is_patron_inside_charge_limits();
is(
$patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{limit}, 23,
"Limit correctly identified at patron category level"
@ -2470,8 +2470,7 @@ subtest 'is_patron_inside_charge_limits() tests' => sub {
);
$patron->category->noissueschargeguarantorswithguarantees(undef);
t::lib::Mocks::mock_preference( 'NoIssuesChargeGuarantorsWithGuarantees', 20 );
$patron_borrowing_status = $patron->is_patron_inside_charge_limits( { patron => $patron } );
$patron_borrowing_status = $patron->is_patron_inside_charge_limits();
is(
$patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{limit}, 20,
"Limit correctly defaults to global syspref"
@ -2482,7 +2481,7 @@ subtest 'is_patron_inside_charge_limits() tests' => sub {
);
is(
$patron_borrowing_status->{NoIssuesChargeGuarantorsWithGuarantees}->{overlimit}, 1,
"Patron is inside the charge limit"
"Patron is over the charge limit"
);
$schema->storage->txn_rollback;

View File

@ -659,7 +659,7 @@ subtest do_checkout_with_sysprefs_override => sub {
{
class => 'Koha::Patrons',
value => {
branchcode => $library->branchcode,
branchcode => $library->branchcode,
categorycode => $patron_category->{categorycode},
}
}
@ -681,7 +681,7 @@ subtest do_checkout_with_sysprefs_override => sub {
{
class => 'Koha::Patrons',
value => {
branchcode => $library->branchcode,
branchcode => $library->branchcode,
categorycode => $patron_category->{categorycode},
}
}
@ -797,7 +797,7 @@ subtest do_checkout_with_patron_blocked => sub {
source => 'Category',
value => {
categorycode => 'NOT_X2', category_type => 'P', enrolmentfee => 0, noissueschargeguarantees => 0,
noissuescharge => 0, noissueschargeguarantorswithguarantees => 0
noissuescharge => 0, noissueschargeguarantorswithguarantees => 0
}
}
);
@ -818,7 +818,7 @@ subtest do_checkout_with_patron_blocked => sub {
{
class => 'Koha::Patrons',
value => {
branchcode => $library->branchcode,
branchcode => $library->branchcode,
categorycode => $patron_category->{categorycode},
}
}