guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/02: website: packages: Reproducibility page shows inconclusive report


From: Ludovic Courtès
Subject: 01/02: website: packages: Reproducibility page shows inconclusive reports.
Date: Wed, 8 Feb 2017 12:01:01 -0500 (EST)

civodul pushed a commit to branch master
in repository guix-artwork.

commit 251df6ca14479b4d4f583383beebf1b2407b7103
Author: Ludovic Courtès <address@hidden>
Date:   Wed Feb 8 17:58:37 2017 +0100

    website: packages: Reproducibility page shows inconclusive reports.
    
    * website/www/packages.scm (packages->reproducibility-sxml): Show the
    number of inconclusive reports.
---
 website/www/packages.scm | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/website/www/packages.scm b/website/www/packages.scm
index 42f6de0..f13d78b 100644
--- a/website/www/packages.scm
+++ b/website/www/packages.scm
@@ -562,17 +562,25 @@ PACKAGES on SERVERS."
                                        #:anchor
                                        (package-anchor package))))
 
-    (let ((mismatches (count comparison-report-mismatch? reports)))
+    (let ((total-items  (length items))
+          (mismatches   (count comparison-report-mismatch? reports))
+          (inconclusive (count comparison-report-inconclusive? reports)))
       (return `(div "Considered " ,total
                     " packages, corresponding to "
-                    ,(length items) " "
-                    (tt "/gnu/store") " items.\n"
+                    ,total-items
+                    " " (tt "/gnu/store") " items, for "
+                    (tt ,(%current-system)) ".\n"
+
                     "Out of these, "
                     ,(issue-count->sxml mismatches)
                     " were found ("
                     ,(inexact->exact
-                      (round (* 100. (/ mismatches (length items)))))
-                    "%).\n\n"
+                      (round (* 100. (/ mismatches total-items))))
+                    "%).  There are "
+                    ,inconclusive " items ("
+                    ,(inexact->exact
+                      (round (* 100. (/ inconclusive total-items))))
+                    "%) for which we could not conclude.\n\n"
 
                     ,@(map ->sxml packages))))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]