Bugzilla – Attachment 180715 Details for
Bug 37418
Expand delete_patron.pl with option to not delete patrons with restrictions
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 37418: (follow-up) Add unit tests for GetBorrowersToExpunge()
Bug-37418-follow-up-Add-unit-tests-for-GetBorrower.patch (text/plain), 2.47 KB, created by
Thomas Klausner
on 2025-04-08 11:26:41 UTC
(
hide
)
Description:
Bug 37418: (follow-up) Add unit tests for GetBorrowersToExpunge()
Filename:
MIME Type:
Creator:
Thomas Klausner
Created:
2025-04-08 11:26:41 UTC
Size:
2.47 KB
patch
obsolete
>From 0fcefbb396dd7cf15c1c35003430329f080c785e Mon Sep 17 00:00:00 2001 >From: Raphael Straub <raphael.straub@kit.edu> >Date: Mon, 20 Jan 2025 09:57:53 +0000 >Subject: [PATCH] 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> >--- > t/db_dependent/Members.t | 33 ++++++++++++++++++++++++++++++++- > 1 file changed, 32 insertions(+), 1 deletion(-) > >diff --git a/t/db_dependent/Members.t b/t/db_dependent/Members.t >index 12b45d66dd..65bf8b92b2 100755 >--- a/t/db_dependent/Members.t >+++ b/t/db_dependent/Members.t >@@ -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( > { >-- >2.39.5
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 37418
:
169688
|
169879
|
176777
|
179151
| 180715 |
180716