From b42548573cbbe7401afef3219759e980d289efb9 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Tue, 19 May 2020 15:32:08 +0200
Subject: [PATCH] Bug 25540: DO NOT PUSH - diag statement

---
 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 b849fd3160..f2c8eb2eb1 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.20.1