Lines 2-8
Link Here
|
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
|
4 |
|
5 |
use Test::More tests => 8; |
5 |
use Test::More tests => 16; |
6 |
use MARC::Record; |
6 |
use MARC::Record; |
7 |
|
7 |
|
8 |
use C4::Branch; |
8 |
use C4::Branch; |
Lines 199-201
is( $messages->{ResFound}->{borrowernumber},
Link Here
|
199 |
is( $messages->{ResFound}->{borrowernumber}, |
199 |
is( $messages->{ResFound}->{borrowernumber}, |
200 |
$requesters{'RPL'}, |
200 |
$requesters{'RPL'}, |
201 |
'for generous library, its items fill first hold request in line (bug 10272)'); |
201 |
'for generous library, its items fill first hold request in line (bug 10272)'); |
202 |
- |
202 |
|
|
|
203 |
my (undef, $reserves) = GetReservesFromBiblionumber($biblionumber); |
204 |
isa_ok($reserves, 'ARRAY'); |
205 |
is(scalar @$reserves, 1, "Only one reserves for this biblio"); |
206 |
my $reserve_id = $reserves->[0]->{reserve_id}; |
207 |
|
208 |
$reserve = GetReserve($reserve_id); |
209 |
isa_ok($reserve, 'HASH', "GetReserve return"); |
210 |
is($reserve->{biblionumber}, $biblionumber); |
211 |
|
212 |
$reserve = CancelReserveFromId($reserve_id); |
213 |
isa_ok($reserve, 'HASH', "CancelReserveFromId return"); |
214 |
is($reserve->{biblionumber}, $biblionumber); |
215 |
|
216 |
$reserve = GetReserve($reserve_id); |
217 |
is($reserve, undef, "GetReserve returns undef after deletion"); |
218 |
|
219 |
$reserve = CancelReserveFromId($reserve_id); |
220 |
is($reserve, undef, "CancelReserveFromId return undef if reserve does not exist"); |