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

(-)a/t/db_dependent/Koha/Patrons.t (-2 / +4 lines)
Lines 32-37 use C4::Biblio; Link Here
32
use C4::Auth qw(checkpw_hash);
32
use C4::Auth qw(checkpw_hash);
33
33
34
use Koha::Holds;
34
use Koha::Holds;
35
use Koha::Old::Holds;
35
use Koha::Patrons;
36
use Koha::Patrons;
36
use Koha::Patron::Categories;
37
use Koha::Patron::Categories;
37
use Koha::Database;
38
use Koha::Database;
Lines 369-375 subtest "move_to_deleted" => sub { Link Here
369
};
370
};
370
371
371
subtest "delete" => sub {
372
subtest "delete" => sub {
372
    plan tests => 5;
373
    plan tests => 6;
373
    t::lib::Mocks::mock_preference( 'BorrowersLog', 1 );
374
    t::lib::Mocks::mock_preference( 'BorrowersLog', 1 );
374
    my $patron           = $builder->build( { source => 'Borrower' } );
375
    my $patron           = $builder->build( { source => 'Borrower' } );
375
    my $retrieved_patron = Koha::Patrons->find( $patron->{borrowernumber} );
376
    my $retrieved_patron = Koha::Patrons->find( $patron->{borrowernumber} );
Lines 389-394 subtest "delete" => sub { Link Here
389
390
390
    is( Koha::Patrons->find( $patron->{borrowernumber} ), undef, 'Koha::Patron->delete should have deleted the patron' );
391
    is( Koha::Patrons->find( $patron->{borrowernumber} ), undef, 'Koha::Patron->delete should have deleted the patron' );
391
392
393
    is (Koha::Old::Holds->search( { reserve_id => $hold->{ reserve_id } } )->count, 1, q|Koha::Patron->delete should have cancelled patron's holds| );
394
392
    is( Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } )->count, 0, q|Koha::Patron->delete should have deleted patron's holds| );
395
    is( Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } )->count, 0, q|Koha::Patron->delete should have deleted patron's holds| );
393
396
394
    is( Koha::Virtualshelves->search( { owner => $patron->{borrowernumber} } )->count, 0, q|Koha::Patron->delete should have deleted patron's lists| );
397
    is( Koha::Virtualshelves->search( { owner => $patron->{borrowernumber} } )->count, 0, q|Koha::Patron->delete should have deleted patron's lists| );
395
- 

Return to bug 23219