Francois Gouget : testbot/Janitor: Clean up obsolete failures.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 55b455dac141e7fb707d01676e48b7cc8797d2e9
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=55b455dac141e7fb707d0167...

Author: Francois Gouget <fgouget(a)codeweavers.com>
Date:   Mon Jun 27 19:57:17 2022 +0200

testbot/Janitor: Clean up obsolete failures.

Delete failures that have been marked for deletion once they are no
longer referenced.

Signed-off-by: Francois Gouget <fgouget(a)codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard(a)winehq.org>

---

 testbot/bin/Janitor.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/testbot/bin/Janitor.pl b/testbot/bin/Janitor.pl
index 618c31d0..839e1a94 100755
--- a/testbot/bin/Janitor.pl
+++ b/testbot/bin/Janitor.pl
@@ -43,6 +43,7 @@ $Name0 =~ s+^.*/++;
 use File::Path;
 
 use WineTestBot::Config;
+use WineTestBot::Failures;
 use WineTestBot::Jobs;
 use WineTestBot::Log;
 use WineTestBot::Patches;
@@ -193,6 +194,22 @@ if ($JobPurgeDays != 0)
   }
 }
 
+# And also failures marked for deletion
+my $Failures = CreateFailures();
+$Failures->AddFilter("BugStatus", ["deleted"]);
+foreach my $Failure (@{$Failures->GetItems()})
+{
+  if ($Failure->TaskFailures->IsEmpty())
+  {
+    $Failures->DeleteItem($Failure);
+  }
+  else
+  {
+    my $TaskFailure = @{$Failure->TaskFailures->GetItems()}[0];
+    Trace "Keeping failure ", $Failure->Id, " for task log ", join("/", $TaskFailure->JobId, $TaskFailure->StepNo, $TaskFailure->TaskNo, $TaskFailure->TaskLog), "\n";
+  }
+}
+
 # Purge the deleted VMs if they are not referenced anymore
 my $VMs = CreateVMs();
 $VMs->AddFilter("Role", ["deleted"]);