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:
parent
66167c1a29
commit
7ab2107688
|
@ -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))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue