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

Bug 37418: (follow-up) Add unit tests for GetBorrowersToExpunge() 

Add unit tests for testing the new parameter without_restriction_types
of C4::Members::GetBorrowersToExpunge().

Sponsored-by: Karlsruhe Institute of Technology (KIT)
Signed-off-by: Thomas Klausner <domm@plix.at>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Raphael Straub 2025-01-20 09:57:53 +00:00 committed by Katrin Fischer
parent ff9b864dbd
commit caa4e523e2
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
t/db_dependent/Members.t
View File

@ -18,7 +18,7 @@
use Modern::Perl;
use Test::NoWarnings;
use Test::More tests => 51;
use Test::More tests => 53;
use Test::MockModule;
use Test::Exception;
@ -28,6 +28,7 @@ use Koha::Database;
use Koha::Holds;
use Koha::List::Patron qw( AddPatronList AddPatronsToList );
use Koha::Patrons;
use Koha::Patron::Debarments qw( AddDebarment );
use Koha::Patron::Relationship;
use t::lib::Mocks;
@ -359,6 +360,36 @@ $patstodel =
GetBorrowersToExpunge( { not_borrowed_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } );
is( scalar(@$patstodel), 2, 'Borrowers without issues deleted by last issue date' );
# Test the "without_restriction_types" parameter of GetBorrowersToExpunge().
my $borrower3 = $builder->build(
{
source => 'Borrower',
value => { categorycode => 'CIVILIAN', flags => undef }
}
);
my $list2 = AddPatronList( { name => 'Test List 2', owner => $owner } );
AddPatronsToList( { list => $list2, borrowernumbers => [ $borrower3->{borrowernumber} ] } );
$patstodel = GetBorrowersToExpunge(
{
without_restriction_types => 'MANUAL',
patron_list_id => $list2->patron_list_id()
}
);
is( scalar(@$patstodel), 1, 'Borrower without restriction deleted' );
Koha::Patron::Debarments::AddDebarment(
{
borrowernumber => $borrower3->{borrowernumber},
type => 'MANUAL'
}
);
$patstodel = GetBorrowersToExpunge(
{
without_restriction_types => 'MANUAL',
patron_list_id => $list2->patron_list_id()
}
);
is( scalar(@$patstodel), 0, 'Borrower with restriction not deleted' );
# Test GetBorrowersToExpunge and TrackLastPatronActivityTriggers
my $new_category = $builder->build_object(
{