Lines 213-218
subtest 'pickup_locations' => sub {
Link Here
|
213 |
my $library7 = $builder->build_object( { class => 'Koha::Libraries', value => { pickup_location => 1 } } ); |
213 |
my $library7 = $builder->build_object( { class => 'Koha::Libraries', value => { pickup_location => 1 } } ); |
214 |
my $library8 = $builder->build_object( { class => 'Koha::Libraries', value => { pickup_location => 0 } } ); |
214 |
my $library8 = $builder->build_object( { class => 'Koha::Libraries', value => { pickup_location => 0 } } ); |
215 |
|
215 |
|
|
|
216 |
our @created = ($library1, $library2, $library3, $library4, $library5, $library6, $library7, $library8); |
216 |
Koha::CirculationRules->set_rules( |
217 |
Koha::CirculationRules->set_rules( |
217 |
{ |
218 |
{ |
218 |
branchcode => $library1->branchcode, |
219 |
branchcode => $library1->branchcode, |
Lines 384-389
subtest 'pickup_locations' => sub {
Link Here
|
384 |
is( ref($pickup_location), 'Koha::Library', 'Object type is correct' ); |
385 |
is( ref($pickup_location), 'Koha::Library', 'Object type is correct' ); |
385 |
} |
386 |
} |
386 |
|
387 |
|
|
|
388 |
my %set = map {$_->branchcode => 1} @created; |
389 |
my @not_in = grep {not $set{$_->branchcode}} @pl; |
390 |
for (@not_in){ |
391 |
warn "FOUND";use Data::Printer colored => 1; warn p $_->unblessed; |
392 |
} |
387 |
ok( |
393 |
ok( |
388 |
scalar(@pl) == $results->{ $cbranch . '-' |
394 |
scalar(@pl) == $results->{ $cbranch . '-' |
389 |
. $biblio->title . '-' |
395 |
. $biblio->title . '-' |
390 |
- |
|
|