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

tests: Check value of ‘evaluation-summary-newly-failed’. 

This is a followup to 7f042dbc37.

* tests/database.scm ("db-get-evaluation-absolute-summary")
("db-get-evaluations-absolute-summary"): Check
‘evaluation-summary-newly-failed’.
This commit is contained in:
Ludovic Courtès 2023-11-22 10:48:42 +01:00
parent 66167c1a29
commit 7ab2107688
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/database.scm
View File

@ -426,18 +426,19 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 0, 0);")
summaries))))
(test-equal "db-get-evaluation-absolute-summary"
(list 0 1 0 (evaluation-status succeeded))
(list 0 1 0 0 (evaluation-status succeeded))
(with-fibers
(let ((summary
(db-get-evaluation-absolute-summary
(db-get-latest-evaluation "guix"))))
(list (evaluation-summary-succeeded summary)
(evaluation-summary-failed summary)
(evaluation-summary-newly-failed summary)
(evaluation-summary-scheduled summary)
(evaluation-summary-status summary)))))
(test-equal "db-get-evaluations-absolute-summary"
'((0 1 0) (0 0 0) (0 1 0))
'((0 1 0 0) (0 0 0 0) (0 1 0 0))
(with-fibers
(let* ((evaluations
(db-get-evaluations-build-summary "guix" 3 #f #f))
@ -446,6 +447,7 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 0, 0);")
(map (lambda (summary)
(list (evaluation-summary-succeeded summary)
(evaluation-summary-failed summary)
(evaluation-summary-newly-failed summary)
(evaluation-summary-scheduled summary)))
summaries))))