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)))) summaries))))
(test-equal "db-get-evaluation-absolute-summary" (test-equal "db-get-evaluation-absolute-summary"
(list 0 1 0 (evaluation-status succeeded)) (list 0 1 0 0 (evaluation-status succeeded))
(with-fibers (with-fibers
(let ((summary (let ((summary
(db-get-evaluation-absolute-summary (db-get-evaluation-absolute-summary
(db-get-latest-evaluation "guix")))) (db-get-latest-evaluation "guix"))))
(list (evaluation-summary-succeeded summary) (list (evaluation-summary-succeeded summary)
(evaluation-summary-failed summary) (evaluation-summary-failed summary)
(evaluation-summary-newly-failed summary)
(evaluation-summary-scheduled summary) (evaluation-summary-scheduled summary)
(evaluation-summary-status summary))))) (evaluation-summary-status summary)))))
(test-equal "db-get-evaluations-absolute-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 (with-fibers
(let* ((evaluations (let* ((evaluations
(db-get-evaluations-build-summary "guix" 3 #f #f)) (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) (map (lambda (summary)
(list (evaluation-summary-succeeded summary) (list (evaluation-summary-succeeded summary)
(evaluation-summary-failed summary) (evaluation-summary-failed summary)
(evaluation-summary-newly-failed summary)
(evaluation-summary-scheduled summary))) (evaluation-summary-scheduled summary)))
summaries)))) summaries))))