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

(-)a/t/db_dependent/Reserves/CancelExpiredReserves.t (-3 / +10 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 4;
4
use Test::More tests => 5;
5
use Test::NoWarnings;
6
use Test::MockModule;
5
7
6
use t::lib::Mocks;
8
use t::lib::Mocks;
7
use t::lib::TestBuilder;
9
use t::lib::TestBuilder;
Lines 240-246 subtest 'Test handling of cancellation reason if passed' => sub { Link Here
240
    );
242
    );
241
    my $reserve_id = $reserve->{reserve_id};
243
    my $reserve_id = $reserve->{reserve_id};
242
    my $count      = Koha::Holds->search->count;
244
    my $count      = Koha::Holds->search->count;
243
    CancelExpiredReserves("EXPIRED");
245
    {
246
        # Prevent warning 'No reserves HOLD_CANCELLATION letter transported by email'
247
        my $mock_letters = Test::MockModule->new('C4::Letters');
248
        $mock_letters->mock( 'GetPreparedLetter', sub { return } );
249
250
        CancelExpiredReserves("EXPIRED");
251
    }
244
    is( Koha::Holds->search->count, $count - 1, "Hold is cancelled when reason is passed" );
252
    is( Koha::Holds->search->count, $count - 1, "Hold is cancelled when reason is passed" );
245
    my $old_reserve = Koha::Old::Holds->find($reserve_id);
253
    my $old_reserve = Koha::Old::Holds->find($reserve_id);
246
    is( $old_reserve->cancellation_reason, 'EXPIRED', "Hold cancellation_reason was set correctly" );
254
    is( $old_reserve->cancellation_reason, 'EXPIRED', "Hold cancellation_reason was set correctly" );
247
- 

Return to bug 40385