Lines 20-26
Link Here
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
use utf8; |
21 |
use utf8; |
22 |
|
22 |
|
23 |
use Test::More tests => 29; |
23 |
use Test::More tests => 30; |
24 |
use Test::Exception; |
24 |
use Test::Exception; |
25 |
use Test::MockModule; |
25 |
use Test::MockModule; |
26 |
|
26 |
|
Lines 2211-2213
subtest 'current_branchtransfers relationship' => sub {
Link Here
|
2211 |
|
2211 |
|
2212 |
$schema->storage->txn_rollback; |
2212 |
$schema->storage->txn_rollback; |
2213 |
}; |
2213 |
}; |
2214 |
- |
2214 |
|
|
|
2215 |
subtest 'holds_control_library() tests' => sub { |
2216 |
|
2217 |
plan tests => 2; |
2218 |
|
2219 |
$schema->storage->txn_begin; |
2220 |
|
2221 |
my $library_1 = $builder->build_object({ class => 'Koha::Libraries' }); |
2222 |
my $library_2 = $builder->build_object({ class => 'Koha::Libraries' }); |
2223 |
|
2224 |
my $patron = $builder->build_object({ class => 'Koha::Patrons', value => { branchcode => $library_1->id } }); |
2225 |
my $item = $builder->build_sample_item({ library => $library_2->id }); |
2226 |
|
2227 |
t::lib::Mocks::mock_preference( 'ReservesControlBranch', 'ItemHomeLibrary' ); |
2228 |
|
2229 |
is( $item->holds_control_library( $patron ), $library_2->id ); |
2230 |
|
2231 |
t::lib::Mocks::mock_preference( 'ReservesControlBranch', 'PatronLibrary' ); |
2232 |
|
2233 |
is( $item->holds_control_library( $patron ), $library_1->id ); |
2234 |
|
2235 |
$schema->storage->txn_rollback; |
2236 |
}; |