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