Francois Gouget : testbot: Update the failures 'last seen' fields.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 1421ab5cdd51ccd4c5a4fdc13c5c51b6be769047
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=1421ab5cdd51ccd4c5a4fdc1...

Author: Francois Gouget 
Date:   Thu Jun 16 18:24:07 2022 +0200

testbot: Update the failures 'last seen' fields.

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=48912
Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

testbot/lib/WineTestBot/LogUtils.pm | 24 +++++++++++++++++++-----
 1 file changed, 19 insertions(+), 5 deletions(-)

diff --git a/testbot/lib/WineTestBot/LogUtils.pm b/testbot/lib/WineTestBot/LogUtils.pm
index b8aaaa43..e25ea3ae 100644
--- a/testbot/lib/WineTestBot/LogUtils.pm
+++ b/testbot/lib/WineTestBot/LogUtils.pm
@@ -1435,11 +1435,14 @@ sub MatchLogFailures($$)

=item C<SaveLogFailures()>

-Updates the TaskFailures objects for the task and log specified by the
-$LogFailures structure.
+Updates the Failures and TaskFailures objects for the task and log specified
+by the $LogFailures structure.

-Note that this implies deleting any preexisting TaskFailure to avoid leaving
-obsolete data.
+Notes:
+* This implies deleting any preexisting TaskFailure to avoid leaving obsolete
+  data.
+* This also updates the failures LastNew and LastOld fields which can however
+  not be undone.

=back
 =cut
@@ -1457,15 +1460,26 @@ sub SaveLogFailures($)
   return $ErrMessage if (defined $ErrMessage);
   return undef if (!$LogFailures->{Failures});

+  my $Started = $LogFailures->{Task}->Started;
   foreach my $LogFailure (values %{$LogFailures->{Failures}})
   {
-    my $TaskFailure = $LogFailure->{Failure}->TaskFailures->Add();
+    my $Failure = $LogFailure->{Failure};
+    my $TaskFailure = $Failure->TaskFailures->Add();
     my $OldKey = $TaskFailure->GetKey();
     $TaskFailure->Task($LogFailures->{Task});
     $TaskFailure->TaskLog($LogFailures->{LogName});
     $TaskFailure->KeyChanged($OldKey, $TaskFailure->GetKey());
     $TaskFailure->NewCount($LogFailure->{NewCount});
     $TaskFailure->OldCount($LogFailure->{OldCount});
+
+    if ($LogFailure->{NewCount} and ($Failure->LastNew || 0) < $Started)
+    {
+      $Failure->LastNew($Started);
+    }
+    if ($LogFailure->{OldCount} and ($Failure->LastOld || 0) < $Started)
+    {
+      $Failure->LastOld($Started);
+    }
   }

(my $_ErrKey, my $_ErrProperty, $ErrMessage) = $LogFailures->{Collection}->Save();