|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 76; |
20 |
use Test::More tests => 79; |
| 21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
| 22 |
use Data::Dumper; |
22 |
use Data::Dumper; |
| 23 |
use C4::Context; |
23 |
use C4::Context; |
|
Lines 353-361
is( scalar(@$patstodel),2,'Borrowers without issues deleted by expiration_date a
Link Here
|
| 353 |
$patstodel = GetBorrowersToExpunge( {not_borrowed_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } ); |
353 |
$patstodel = GetBorrowersToExpunge( {not_borrowed_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } ); |
| 354 |
is( scalar(@$patstodel),2,'Borrowers without issues deleted by last issue date'); |
354 |
is( scalar(@$patstodel),2,'Borrowers without issues deleted by last issue date'); |
| 355 |
|
355 |
|
| 356 |
|
356 |
# Test GetBorrowersToExpunge and TrackLastPatronActivity |
| 357 |
|
357 |
$dbh->do(q|UPDATE borrowers SET lastseen=NULL|); |
| 358 |
|
358 |
$builder->build({ source => 'Borrower', value => { lastseen => '2016-01-01 01:01:01', guarantorid => undef } } ); |
|
|
359 |
$builder->build({ source => 'Borrower', value => { lastseen => '2016-02-02 02:02:02', guarantorid => undef } } ); |
| 360 |
$builder->build({ source => 'Borrower', value => { lastseen => '2016-03-03 03:03:03', guarantorid => undef } } ); |
| 361 |
$patstodel = GetBorrowersToExpunge( { last_seen => '1999-12-12' }); |
| 362 |
is( scalar @$patstodel, 0, 'TrackLastPatronActivity - 0 patrons must be deleted' ); |
| 363 |
$patstodel = GetBorrowersToExpunge( { last_seen => '2016-02-15' }); |
| 364 |
is( scalar @$patstodel, 2, 'TrackLastPatronActivity - 2 patrons must be deleted' ); |
| 365 |
$patstodel = GetBorrowersToExpunge( { last_seen => '2016-04-04' }); |
| 366 |
is( scalar @$patstodel, 3, 'TrackLastPatronActivity - 3 patrons must be deleted' ); |
| 359 |
|
367 |
|
| 360 |
# Regression tests for BZ13502 |
368 |
# Regression tests for BZ13502 |
| 361 |
## Remove all entries with userid='' (should be only 1 max) |
369 |
## Remove all entries with userid='' (should be only 1 max) |
| 362 |
- |
|
|