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