From 92aacf124be2c2f93e6905e84501231ee2534ea4 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 19 May 2020 15:32:08 +0200 Subject: [PATCH] Bug 25540: DO NOT PUSH - diag statement Signed-off-by: Tomas Cohen Arazi --- t/db_dependent/Koha/Biblio.t | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/t/db_dependent/Koha/Biblio.t b/t/db_dependent/Koha/Biblio.t index b849fd3160d..f2c8eb2eb1a 100644 --- a/t/db_dependent/Koha/Biblio.t +++ b/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 . '-' -- 2.26.2