@@ -, +, @@ --- t/db_dependent/Koha/Biblio.t | 6 ++++++ 1 file changed, 6 insertions(+) --- a/t/db_dependent/Koha/Biblio.t +++ a/t/db_dependent/Koha/Biblio.t @@ -213,6 +213,7 @@ subtest 'pickup_locations' => sub { my $library7 = $builder->build_object( { class => 'Koha::Libraries', value => { pickup_location => 1 } } ); my $library8 = $builder->build_object( { class => 'Koha::Libraries', value => { pickup_location => 0 } } ); + our @created = ($library1, $library2, $library3, $library4, $library5, $library6, $library7, $library8); Koha::CirculationRules->set_rules( { branchcode => $library1->branchcode, @@ -384,6 +385,11 @@ subtest 'pickup_locations' => sub { is( ref($pickup_location), 'Koha::Library', 'Object type is correct' ); } + my %set = map {$_->branchcode => 1} @created; + my @not_in = grep {not $set{$_->branchcode}} @pl; + for (@not_in){ + warn "FOUND";use Data::Printer colored => 1; warn p $_->unblessed; + } ok( scalar(@pl) == $results->{ $cbranch . '-' . $biblio->title . '-' --