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