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

(-)a/t/db_dependent/Koha/Patrons.t (-4 / +13 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 33;
22
use Test::More tests => 34;
23
use Test::Warn;
23
use Test::Warn;
24
use Test::Exception;
24
use Test::Exception;
25
use Test::MockModule;
25
use Test::MockModule;
Lines 368-375 subtest "move_to_deleted" => sub { Link Here
368
    $retrieved_patron->delete( $patron->{borrowernumber} );    # Cleanup
368
    $retrieved_patron->delete( $patron->{borrowernumber} );    # Cleanup
369
};
369
};
370
370
371
subtest "delete" => sub {
371
subtest "Koha::Patrons->search" => sub {
372
    plan tests => 5;
372
    plan tests => 1;
373
374
    my $set = Koha::Patrons->search();
375
    my $count = $set->count;
376
    my $reduced_set = $set->search({ borrowernumber => { '>' => 0 } });
377
    my $reduced_count = $reduced_set->count;
378
    is ( $count, $reduced_count, "System users not found in Koha::Patrons->search");
379
};
380
381
subtest "Koha::Patron->delete" => sub {
382
    plan tests => 6;
373
    t::lib::Mocks::mock_preference( 'BorrowersLog', 1 );
383
    t::lib::Mocks::mock_preference( 'BorrowersLog', 1 );
374
    my $patron           = $builder->build( { source => 'Borrower' } );
384
    my $patron           = $builder->build( { source => 'Borrower' } );
375
    my $retrieved_patron = Koha::Patrons->find( $patron->{borrowernumber} );
385
    my $retrieved_patron = Koha::Patrons->find( $patron->{borrowernumber} );
376
- 

Return to bug 22577