Lines 22-33
use Test::MockModule;
Link Here
|
22 |
use Test::Exception; |
22 |
use Test::Exception; |
23 |
|
23 |
|
24 |
use Data::Dumper qw/Dumper/; |
24 |
use Data::Dumper qw/Dumper/; |
|
|
25 |
|
25 |
use C4::Context; |
26 |
use C4::Context; |
26 |
use Koha::Database; |
27 |
use Koha::Database; |
27 |
use Koha::Holds; |
28 |
use Koha::Holds; |
28 |
use Koha::List::Patron; |
29 |
use Koha::List::Patron; |
29 |
use Koha::Patrons; |
30 |
use Koha::Old::Patrons; |
30 |
use Koha::Patron::Relationship; |
31 |
use Koha::Patron::Relationship; |
|
|
32 |
use Koha::Patrons; |
31 |
|
33 |
|
32 |
use t::lib::Mocks; |
34 |
use t::lib::Mocks; |
33 |
use t::lib::TestBuilder; |
35 |
use t::lib::TestBuilder; |
Lines 401-407
$borrower = Koha::Patrons->find( $borrowernumber )->unblessed;
Link Here
|
401 |
ok( $borrower->{userid}, 'A userid should have been generated correctly' ); |
403 |
ok( $borrower->{userid}, 'A userid should have been generated correctly' ); |
402 |
|
404 |
|
403 |
subtest 'purgeSelfRegistration' => sub { |
405 |
subtest 'purgeSelfRegistration' => sub { |
404 |
plan tests => 5; |
406 |
plan tests => 8; |
|
|
407 |
Koha::Old::Patrons->delete; |
405 |
|
408 |
|
406 |
#purge unverified |
409 |
#purge unverified |
407 |
my $d=360; |
410 |
my $d=360; |
Lines 449-456
subtest 'purgeSelfRegistration' => sub {
Link Here
|
449 |
is( C4::Members::DeleteExpiredOpacRegistrations(), 0, "DeleteExpiredOpacRegistrations doesn't delete borrower with fine and no checkout"); |
452 |
is( C4::Members::DeleteExpiredOpacRegistrations(), 0, "DeleteExpiredOpacRegistrations doesn't delete borrower with fine and no checkout"); |
450 |
|
453 |
|
451 |
$account_line->delete; |
454 |
$account_line->delete; |
|
|
455 |
is( C4::Members::DeleteExpiredOpacRegistrations('soft'), 1, "DeleteExpiredOpacRegistrations does delete borrower with no fines and no checkouts"); |
456 |
|
457 |
is( Koha::Old::Patrons->count, 1, "Patron soft deleted, moved to delete patrons table" ); |
458 |
Koha::Old::Patrons->delete; |
459 |
|
460 |
my $self_reg_2 = $builder->build_object({ |
461 |
class => 'Koha::Patrons', |
462 |
value => { |
463 |
dateenrolled => '2014-01-01 01:02:03', |
464 |
categorycode => $c |
465 |
} |
466 |
}); |
467 |
|
452 |
is( C4::Members::DeleteExpiredOpacRegistrations(), 1, "DeleteExpiredOpacRegistrations does delete borrower with no fines and no checkouts"); |
468 |
is( C4::Members::DeleteExpiredOpacRegistrations(), 1, "DeleteExpiredOpacRegistrations does delete borrower with no fines and no checkouts"); |
453 |
|
469 |
|
|
|
470 |
is( Koha::Old::Patrons->count, 0, "Patron hard deleted, not moved to delete patrons table" ); |
471 |
|
454 |
}; |
472 |
}; |
455 |
|
473 |
|
456 |
sub _find_member { |
474 |
sub _find_member { |
457 |
- |
|
|