[no subject]

[Ludovic Courtès]

branch: master
commit 7ab21076881faef60bd3072d1a5b12cac45e175c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Nov 22 10:48:42 2023 +0100

    tests: Check value of ‘evaluation-summary-newly-failed’.
    
    This is a followup to 7f042dbc37a3b9b0caa552233b2753a9279c7f90.
    
    * tests/database.scm ("db-get-evaluation-absolute-summary")
    ("db-get-evaluations-absolute-summary"): Check
    ‘evaluation-summary-newly-failed’.
---
 tests/database.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/database.scm b/tests/database.scm
index 0920172..fe476ab 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -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))))