Bug 21912: (QA follow-up) Do not delete existing patrons

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit 8e6c789255a60958ed12eb399b1acd21819fd40c)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

diff --git a/t/db_dependent/Koha/Objects.t b/t/db_dependent/Koha/Objects.t
index 5e00ef9..db7711e 100644 (file)
--- a/t/db_dependent/Koha/Objects.t
+++ b/t/db_dependent/Koha/Objects.t
@@ -261,7 +261,7 @@ subtest '->search() tests' => sub {
 
     $schema->storage->txn_begin;
 
-    Koha::Patrons->delete;
+    my $count = Koha::Patrons->search->count;
 
     # Create 10 patrons
     foreach (1..10) {
@@ -271,7 +271,7 @@ subtest '->search() tests' => sub {
     my $patrons = Koha::Patrons->search();
     is( ref($patrons), 'Koha::Patrons', 'search in scalar context returns the Koha::Object-based type' );
     my @patrons = Koha::Patrons->search();
-    is( scalar @patrons, 10, 'search in list context returns a list of objects' );
+    is( scalar @patrons, $count + 10, 'search in list context returns a list of objects' );
     my $i = 0;
     foreach (1..10) {
         is( ref($patrons[$i]), 'Koha::Patron', 'Objects in the list have the singular type' );