|
Lines 4-10
use strict;
Link Here
|
| 4 |
use warnings; |
4 |
use warnings; |
| 5 |
use C4::Branch; |
5 |
use C4::Branch; |
| 6 |
|
6 |
|
| 7 |
use Test::More tests => 4; |
7 |
use Test::More tests => 12; |
| 8 |
use MARC::Record; |
8 |
use MARC::Record; |
| 9 |
use C4::Biblio; |
9 |
use C4::Biblio; |
| 10 |
use C4::Items; |
10 |
use C4::Items; |
|
Lines 66-71
ok($status eq "Reserved", "CheckReserves Test 2");
Link Here
|
| 66 |
($status, $reserve, $all_reserves) = CheckReserves(undef, $barcode); |
66 |
($status, $reserve, $all_reserves) = CheckReserves(undef, $barcode); |
| 67 |
ok($status eq "Reserved", "CheckReserves Test 3"); |
67 |
ok($status eq "Reserved", "CheckReserves Test 3"); |
| 68 |
|
68 |
|
|
|
69 |
my (undef, $reserves) = GetReservesFromBiblionumber($biblionumber); |
| 70 |
isa_ok($reserves, 'ARRAY'); |
| 71 |
is(scalar @$reserves, 1, "Only one reserves for this biblio"); |
| 72 |
my $reserve_id = $reserves->[0]->{reserve_id}; |
| 73 |
|
| 74 |
$reserve = GetReserve($reserve_id); |
| 75 |
isa_ok($reserve, 'HASH', "GetReserve return"); |
| 76 |
is($reserve->{biblionumber}, $biblionumber); |
| 77 |
|
| 78 |
$reserve = CancelReserveFromId($reserve_id); |
| 79 |
isa_ok($reserve, 'HASH', "CancelReserveFromId return"); |
| 80 |
is($reserve->{biblionumber}, $biblionumber); |
| 81 |
|
| 82 |
$reserve = GetReserve($reserve_id); |
| 83 |
is($reserve, undef, "GetReserve returns undef after deletion"); |
| 84 |
|
| 85 |
$reserve = CancelReserveFromId($reserve_id); |
| 86 |
is($reserve, undef, "CancelReserveFromId return undef if reserve does not exist"); |
| 69 |
|
87 |
|
| 70 |
# Teardown Test--------------------- |
88 |
# Teardown Test--------------------- |
| 71 |
# Delete item. |
89 |
# Delete item. |
| 72 |
- |
|
|