Re: core-updates weather reports!

[Mathieu Othacehe <othacehe@gnu.org>]

Hello,

The situation is getting better here:

--8<---------------cut here---------------start------------->8---
https://ci.guix.gnu.org
  81.1% substitutes available (16,148 out of 19,921)
  at least 112,494.5 MiB of nars (compressed)
  17,592,186,161,392.5 MiB on disk (uncompressed)
  0.006 seconds per request (29.4 seconds in total)
  162.1 requests per second
--8<---------------cut here---------------end--------------->8---

I came up with a small script to pick randomly a failing package on the
core-updates-frozen branch:

--8<---------------cut here---------------start------------->8---
(use-modules (guix ci)
             (srfi srfi-1))

(define url "https://ci.guix.gnu.org")
(define system "x86_64-linux")

(define evals
  (latest-evaluations "https://ci.guix.gnu.org" 5
                      #:spec "core-updates-frozen"))

(define (last-eval evals)
  (first
   (filter-map (lambda (eval)
                 (and (evaluation-complete? eval)
                      (evaluation-id eval)))
               evals)))

(define eval
  (last-eval evals))

(define failed-builds
  (filter-map (lambda (job)
                (and (eq? (job-status job) 'failed)
                     (job-name job)))
              (evaluation-jobs url eval)))

(define %seed
  (seed->random-state
   (logxor (getpid) (car (gettimeofday)))))

(define failed-for-system
  (filter-map (lambda (job)
                (and (string-suffix? system job)
                     job))
              failed-builds))

(format #t "~a~%"
        (list-ref failed-for-system
                  (random (length failed-for-system)
                          %seed)))
--8<---------------cut here---------------end--------------->8---

For instance:

--8<---------------cut here---------------start------------->8---
mathieu@meije ~/guix [env]$ guix repl ~/tmp/fix.scm 
rust-test-case.x86_64-linux
mathieu@meije ~/guix [env]$ guix repl ~/tmp/fix.scm 
rust-tungstenite.x86_64-linux
--8<---------------cut here---------------end--------------->8---

That's a fun little game :)

Mathieu