guix
/
guix-cuirass
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git
2
0
Fork 0
Code Issues Releases Wiki Activity

database: Add ‘newly-failed’ field to <build-summary>. 

* src/cuirass/database.scm (<build-summary>)[newly-failed]: New field.
(db-get-evaluations-build-summary): Set it.
* tests/database.scm ("db-get-evaluations-build-summary"): Test it.
This commit is contained in:
Ludovic Courtès 2023-11-22 10:47:36 +01:00
parent 8cb3db46f1
commit 66167c1a29
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/cuirass/database.scm
View File

@ -115,6 +115,7 @@
build-summary-checkouts
build-summary-succeeded
build-summary-failed
build-summary-newly-failed
build-summary-scheduled
evaluation-summary?
@ -1737,6 +1738,7 @@ ORDER BY id DESC LIMIT :limit;")
(build-summary-evaluation-id this-build-summary))))
(succeeded build-summary-succeeded)
(failed build-summary-failed)
(newly-failed build-summary-newly-failed)
(scheduled build-summary-scheduled))
(define (db-get-evaluations-build-summary spec limit border-low border-high)
@ -1745,7 +1747,10 @@ ORDER BY id DESC LIMIT :limit;")
SELECT E.id, E.status,
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 FROM
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
WHERE specification = " spec "
AND (id > " border-low " OR " border-low "::text IS NULL)
@ -1760,7 +1765,7 @@ ORDER BY E.id DESC;"))
(match rows
(()
(reverse summaries))
(((id status succeeded failed scheduled) . rest)
(((id status succeeded failed scheduled newly-failed) . rest)
(loop rest
(cons (build-summary
(evaluation-id (string->number id))
@ -1768,6 +1773,7 @@ ORDER BY E.id DESC;"))
(checkouts (db-get-checkouts id))
(succeeded (or (string->number succeeded) 0))
(failed (or (string->number failed) 0))
(newly-failed (or (string->number newly-failed) 0))
(scheduled (or (string->number scheduled) 0)))
summaries)))))))

3
tests/database.scm
View File

@ -414,13 +414,14 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 0, 0);")
(db-get-evaluations 2))))
(test-equal "db-get-evaluations-build-summary"
'((0 0 0) (0 0 0) (0 1 1))
'((0 0 0 0) (0 0 0 0) (0 1 0 1))
(with-fibers
(let ((summaries
(db-get-evaluations-build-summary "guix" 3 #f #f)))
(map (lambda (summary)
(list (build-summary-succeeded summary)
(build-summary-failed summary)
(build-summary-newly-failed summary)
(build-summary-scheduled summary)))
summaries))))