[no subject]

[Ludovic Courtès]

branch: main
commit 78bdc15acefbbf3ff5f04d5d7c6edd0a391d689b
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri May 24 14:22:01 2024 +0200

    database: Add ‘timestamp’ field to <build-summary>.
    
    * src/cuirass/database.scm (<build-summary>)[timestamp]: New field.
    (db-get-evaluations-build-summary): Select ‘evaltime’ and ‘timestamp’
    and fill out ‘timestamp’ field.
---
 src/cuirass/database.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 9263338..2f29d45 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -112,6 +112,7 @@
             build-summary?
             build-summary-evaluation-id
             build-summary-status
+            build-summary-timestamp
             build-summary-checkouts
             build-summary-succeeded
             build-summary-failed
@@ -1743,6 +1744,7 @@ ORDER BY id DESC LIMIT :limit;")
   this-build-summary
   (evaluation-id build-summary-evaluation-id)
   (status        build-summary-status)
+  (timestamp     build-summary-timestamp)
   (checkouts     build-summary-checkouts
                  (thunked)
                  (default (db-get-checkouts
@@ -1756,13 +1758,14 @@ ORDER BY id DESC LIMIT :limit;")
   (with-db-connection db
     (let loop ((rows (exec-query/bind db "
 SELECT E.id, E.status,
+ (CASE WHEN E.status = 0 THEN E.evaltime ELSE E.timestamp END),
 SUM(CASE WHEN B.status = 0 THEN 1 ELSE 0 END) as succeeded,
 SUM(CASE WHEN B.status > 0 THEN 1 ELSE 0 END) as failed,
 SUM(CASE WHEN B.status < 0 THEN 1 ELSE 0 END) as scheduled,
 SUM(CASE WHEN (B.status > 0 AND B.weather = " (build-weather new-failure) ")\
     THEN 1 ELSE 0 END) as newfailures
 FROM
-(SELECT id, status FROM Evaluations
+(SELECT id, status, evaltime, timestamp FROM Evaluations
  WHERE specification = " spec "
 AND (id > " border-low " OR " border-low "::text IS NULL)
 AND (id < " border-high " OR " border-high "::text IS NULL)
@@ -1770,17 +1773,18 @@ ORDER BY CASE WHEN " border-low "::text IS NULL THEN id 
ELSE -id END DESC
 LIMIT " limit ") E
 LEFT JOIN Builds as B
 ON B.evaluation = E.id
-GROUP BY E.id, E.status
+GROUP BY E.id, E.status, E.evaltime, E.timestamp
 ORDER BY E.id DESC;"))
                (summaries '()))
       (match rows
         (()
          (reverse summaries))
-        (((id status succeeded failed scheduled newly-failed) . rest)
+        (((id status timestamp succeeded failed scheduled newly-failed) . rest)
          (loop rest
                (cons (build-summary
                       (evaluation-id (string->number id))
                       (status (string->number status))
+                      (timestamp (string->number timestamp))
                       (checkouts (db-get-checkouts id))
                       (succeeded (or (string->number succeeded) 0))
                       (failed (or (string->number failed) 0))