View | Details | Raw Unified | Return to bug 37418
Collapse All | Expand All

(-)a/t/db_dependent/Members.t (-2 / +32 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 50;
20
use Test::More tests => 52;
21
use Test::MockModule;
21
use Test::MockModule;
22
use Test::Exception;
22
use Test::Exception;
23
23
Lines 27-32 use Koha::Database; Link Here
27
use Koha::Holds;
27
use Koha::Holds;
28
use Koha::List::Patron qw( AddPatronList AddPatronsToList );
28
use Koha::List::Patron qw( AddPatronList AddPatronsToList );
29
use Koha::Patrons;
29
use Koha::Patrons;
30
use Koha::Patron::Debarments qw( AddDebarment );
30
use Koha::Patron::Relationship;
31
use Koha::Patron::Relationship;
31
32
32
use t::lib::Mocks;
33
use t::lib::Mocks;
Lines 280-285 is( scalar(@$patstodel),2,'Borrowers without issues deleted by expiration_date a Link Here
280
$patstodel = GetBorrowersToExpunge( {not_borrowed_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } );
281
$patstodel = GetBorrowersToExpunge( {not_borrowed_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } );
281
is( scalar(@$patstodel),2,'Borrowers without issues deleted by last issue date');
282
is( scalar(@$patstodel),2,'Borrowers without issues deleted by last issue date');
282
283
284
# Test the "without_restriction_types" parameter of GetBorrowersToExpunge().
285
my $borrower3 = $builder->build(
286
    {
287
        source => 'Borrower',
288
        value  => { categorycode => 'CIVILIAN', flags => undef }
289
    }
290
);
291
my $list2 = AddPatronList( { name => 'Test List 2', owner => $owner } );
292
AddPatronsToList( { list => $list2, borrowernumbers => [ $borrower3->{borrowernumber} ] } );
293
$patstodel = GetBorrowersToExpunge(
294
    {
295
        without_restriction_types => 'MANUAL',
296
        patron_list_id            => $list2->patron_list_id()
297
    }
298
);
299
is( scalar(@$patstodel), 1, 'Borrower without restriction deleted' );
300
Koha::Patron::Debarments::AddDebarment(
301
    {
302
        borrowernumber => $borrower3->{borrowernumber},
303
        type           => 'MANUAL'
304
    }
305
);
306
$patstodel = GetBorrowersToExpunge(
307
    {
308
        without_restriction_types => 'MANUAL',
309
        patron_list_id            => $list2->patron_list_id()
310
    }
311
);
312
is( scalar(@$patstodel), 0, 'Borrower with restriction not deleted' );
313
283
# Test GetBorrowersToExpunge and TrackLastPatronActivityTriggers
314
# Test GetBorrowersToExpunge and TrackLastPatronActivityTriggers
284
my $new_category = $builder->build_object(
315
my $new_category = $builder->build_object(
285
    {
316
    {
286
- 

Return to bug 37418