|
Lines 702-708
subtest 'pickup_locations() tests' => sub {
Link Here
|
| 702 |
|
702 |
|
| 703 |
plan tests => 70; |
703 |
plan tests => 70; |
| 704 |
|
704 |
|
| 705 |
t::lib::Mocks::mock_preference('canreservefromotherbranches', 1); |
705 |
t::lib::Mocks::mock_preference( 'canreservefromotherbranches', 1 ); |
| 706 |
$schema->storage->txn_begin; |
706 |
$schema->storage->txn_begin; |
| 707 |
|
707 |
|
| 708 |
my $dbh = C4::Context->dbh; |
708 |
my $dbh = C4::Context->dbh; |
|
Lines 1041-1047
subtest 'pickup_locations() tests' => sub {
Link Here
|
| 1041 |
grep { $pickup_location->branchcode eq $_ } @branchcodes |
1041 |
grep { $pickup_location->branchcode eq $_ } @branchcodes |
| 1042 |
} $item4->pickup_locations( { patron => $patron5 } )->as_list; |
1042 |
} $item4->pickup_locations( { patron => $patron5 } )->as_list; |
| 1043 |
ok( |
1043 |
ok( |
| 1044 |
scalar(@pickup_locations) == 1 && @pickup_locations[0] eq $library4->branchcode, |
1044 |
scalar(@pickup_locations) == 1 && $pickup_locations[0] eq $library4->branchcode, |
| 1045 |
'There should be only one branch in the pickup locations, the connected branch' |
1045 |
'There should be only one branch in the pickup locations, the connected branch' |
| 1046 |
); |
1046 |
); |
| 1047 |
|
1047 |
|
| 1048 |
- |
|
|