|
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"); |