Lines 563-569
subtest 'pickup_locations() tests' => sub {
Link Here
|
563 |
|
563 |
|
564 |
plan tests => 70; |
564 |
plan tests => 70; |
565 |
|
565 |
|
566 |
t::lib::Mocks::mock_preference('canreservefromotherbranches', 1); |
566 |
t::lib::Mocks::mock_preference( 'canreservefromotherbranches', 1 ); |
567 |
$schema->storage->txn_begin; |
567 |
$schema->storage->txn_begin; |
568 |
|
568 |
|
569 |
my $dbh = C4::Context->dbh; |
569 |
my $dbh = C4::Context->dbh; |
Lines 902-908
subtest 'pickup_locations() tests' => sub {
Link Here
|
902 |
grep { $pickup_location->branchcode eq $_ } @branchcodes |
902 |
grep { $pickup_location->branchcode eq $_ } @branchcodes |
903 |
} $item4->pickup_locations( { patron => $patron5 } )->as_list; |
903 |
} $item4->pickup_locations( { patron => $patron5 } )->as_list; |
904 |
ok( |
904 |
ok( |
905 |
scalar(@pickup_locations) == 1 && @pickup_locations[0] eq $library4->branchcode, |
905 |
scalar(@pickup_locations) == 1 && $pickup_locations[0] eq $library4->branchcode, |
906 |
'There should be only one branch in the pickup locations, the connected branch' |
906 |
'There should be only one branch in the pickup locations, the connected branch' |
907 |
); |
907 |
); |
908 |
|
908 |
|
909 |
- |
|
|