Lines 12-18
use C4::Context;
Link Here
|
12 |
|
12 |
|
13 |
use Data::Dumper; |
13 |
use Data::Dumper; |
14 |
|
14 |
|
15 |
use Test::More tests => 18; |
15 |
use Test::More tests => 19; |
16 |
|
16 |
|
17 |
use C4::Branch; |
17 |
use C4::Branch; |
18 |
use C4::ItemType; |
18 |
use C4::ItemType; |
Lines 148-153
ok( $queue_item
Link Here
|
148 |
&& $queue_item->{holdingbranch} eq $least_cost_branch_code, "GetHoldsQueueItems" ) |
148 |
&& $queue_item->{holdingbranch} eq $least_cost_branch_code, "GetHoldsQueueItems" ) |
149 |
or diag( "Expected item for pick $borrower_branchcode, hold $least_cost_branch_code, got ".Dumper($queue_item) ); |
149 |
or diag( "Expected item for pick $borrower_branchcode, hold $least_cost_branch_code, got ".Dumper($queue_item) ); |
150 |
|
150 |
|
|
|
151 |
ok( |
152 |
C4::HoldsQueue::least_cost_branch( 'B', [ 'A', 'B', 'C' ] ) eq 'B', |
153 |
'C4::HoldsQueue::least_cost_branch returns the local branch if it is in the list of branches to pull from' |
154 |
); |
155 |
|
151 |
# XXX All this tests are for borrower branch pick-up. |
156 |
# XXX All this tests are for borrower branch pick-up. |
152 |
# Maybe needs expanding to homebranch or holdingbranch pick-up. |
157 |
# Maybe needs expanding to homebranch or holdingbranch pick-up. |
153 |
|
158 |
|
154 |
- |
|
|