[no subject]

[Ludovic Courtès]

branch: main
commit 8d71d3317aef7d5cc832dc893c0cb0b9dbf7ce58
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Jun 28 10:59:16 2024 +0200

    database: Check the timing of ‘db-get-evaluation-summary’.
    
    * src/cuirass/database.scm (db-get-evaluation-summary): Wrap query in
    ‘with-timing-check’.
---
 src/cuirass/database.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index b5c1285..c794c72 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -1899,7 +1899,8 @@ GROUP BY Evaluations.specification;") ))
 (define (db-get-evaluation-summary id)
   (with-db-connection db
     (match (expect-one-row
-            (exec-query/bind db "
+            (with-timing-check "getting evaluation summary"
+              (exec-query/bind db "
 SELECT Evaluations.id, Evaluations.status, Evaluations.timestamp,
 Evaluations.checkouttime, Evaluations.evaltime,
 SUM(CASE WHEN B.status > -100 THEN 1 ELSE 0 END) as total,
@@ -1915,7 +1916,8 @@ LEFT JOIN Evaluations
 ON Jobs.evaluation = Evaluations.id
 WHERE Jobs.evaluation = " id "
 GROUP BY Evaluations.id
-ORDER BY Evaluations.id ASC;"))
+ORDER BY Evaluations.id ASC;")
+              #:threshold 4))
       ((id status timestamp checkouttime evaltime
            total succeeded failed scheduled newfailures)
        (evaluation-summary