From e6db80c48f3bb9e077e80dbb7d283574cd21b8c8 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Mon, 21 Nov 2022 09:53:31 +0000
Subject: [PATCH] Bug 32304: BackgroundJobs.t: Fix subtest purge
Content-Type: text/plain; charset=utf-8

Instead of deleting, I added a count :)
Note that one of the purges eventually deletes my
older jobs..

Test plan:
Run t/db_dependent/Koha/BackgroundJobs.t

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
---
 t/db_dependent/Koha/BackgroundJobs.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/db_dependent/Koha/BackgroundJobs.t b/t/db_dependent/Koha/BackgroundJobs.t
index 158565df4c..c9cfdca132 100755
--- a/t/db_dependent/Koha/BackgroundJobs.t
+++ b/t/db_dependent/Koha/BackgroundJobs.t
@@ -146,6 +146,7 @@ subtest 'search_limited' => sub {
 subtest 'purge' => sub {
     plan tests => 9;
     $schema->storage->txn_begin;
+    my $cnt_finished = Koha::BackgroundJobs->search({ status => 'finished' })->count;
 
     my $recent_date = dt_from_string;
     my $old_date = dt_from_string->subtract({ days => 3 });
@@ -161,7 +162,7 @@ subtest 'purge' => sub {
     is( Koha::BackgroundJobs->purge($params), 1, 'Only the old finished type1 job would be purged' );
 
     $params->{'job_types'} = ['all'];
-    is( Koha::BackgroundJobs->purge($params), 2, 'All finished old jobs would be purged with job_types = all' );
+    is( Koha::BackgroundJobs->purge($params), $cnt_finished + 2, 'All finished old jobs would be purged with job_types = all' );
 
     my $rs = Koha::BackgroundJobs->search(
         {
@@ -182,7 +183,7 @@ subtest 'purge' => sub {
     is( $rs->count, 3, '3 jobs still left in queue');
 
     $params->{'job_types'} = ['all'];
-    is( Koha::BackgroundJobs->purge($params), 1, 'The remaining old finished jobs is purged' );
+    is( Koha::BackgroundJobs->purge($params), $cnt_finished + 1, 'The remaining old finished jobs is purged' );
         $rs = Koha::BackgroundJobs->search(
         {
             id => [ $job_recent_t1_new->id, $job_recent_t2_fin->id, $job_old_t1_fin->id, $job_old_t2_fin->id ]
-- 
2.30.2