|
Lines 9-16
use Test::More tests => 10;
Link Here
|
| 9 |
use t::lib::TestBuilder; |
9 |
use t::lib::TestBuilder; |
| 10 |
|
10 |
|
| 11 |
BEGIN { |
11 |
BEGIN { |
| 12 |
use FindBin; |
|
|
| 13 |
use lib $FindBin::Bin; |
| 14 |
use_ok('C4::Reserves'); |
12 |
use_ok('C4::Reserves'); |
| 15 |
} |
13 |
} |
| 16 |
|
14 |
|
|
Lines 46-56
my $borrowernumber = $borrower->{borrowernumber};
Link Here
|
| 46 |
my $library_A = $library1->{branchcode}; |
44 |
my $library_A = $library1->{branchcode}; |
| 47 |
my $library_B = $library2->{branchcode}; |
45 |
my $library_B = $library2->{branchcode}; |
| 48 |
my $library_C = $library3->{branchcode}; |
46 |
my $library_C = $library3->{branchcode}; |
| 49 |
$dbh->do("DELETE FROM reserves"); |
|
|
| 50 |
$dbh->do("DELETE FROM issues"); |
| 51 |
$dbh->do("DELETE FROM items"); |
| 52 |
$dbh->do("DELETE FROM biblio"); |
| 53 |
$dbh->do("DELETE FROM biblioitems"); |
| 54 |
$dbh->do("DELETE FROM transport_cost"); |
47 |
$dbh->do("DELETE FROM transport_cost"); |
| 55 |
$dbh->do("DELETE FROM tmp_holdsqueue"); |
48 |
$dbh->do("DELETE FROM tmp_holdsqueue"); |
| 56 |
$dbh->do("DELETE FROM hold_fill_targets"); |
49 |
$dbh->do("DELETE FROM hold_fill_targets"); |
|
Lines 145-152
$reserve_id = AddReserve( $library_C, $borrowernumber, $biblionumber, '', 1 );
Link Here
|
| 145 |
( $status ) = CheckReserves($itemnumber); |
138 |
( $status ) = CheckReserves($itemnumber); |
| 146 |
is( $status, 'Reserved', "Hold where pickup ne home, pickup ne holding targeted" ); |
139 |
is( $status, 'Reserved', "Hold where pickup ne home, pickup ne holding targeted" ); |
| 147 |
CancelReserve( { reserve_id => $reserve_id } ); |
140 |
CancelReserve( { reserve_id => $reserve_id } ); |
| 148 |
|
|
|
| 149 |
# End testing hold_fulfillment_policy |
| 150 |
|
| 151 |
# Cleanup |
| 152 |
$schema->storage->txn_rollback; |
| 153 |
- |