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 |
- |
|
|