~ruther/guix-local

344bf876f69ef5f79e77ad0aa1684d9327123e74 — Rutherther 6 months ago 11e0594
installer: Respect /tmp/installer-assume-online in check-substitute-availability.

Follow up of #2518, where check-substitute-availability has been introduced.

This is mostly for system tests that run without internet access.

* gnu/installer/newt/network.scm (check-substitute-availability): Skip the
check if /tmp/installer-assume-online exists.

Change-Id: I0110390e8c5ce6756f3c22cb770011ea735fe79b
Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
1 files changed, 6 insertions(+), 4 deletions(-)

M gnu/installer/newt/network.scm
M gnu/installer/newt/network.scm => gnu/installer/newt/network.scm +6 -4
@@ 168,10 168,12 @@ Do you want to continue anyway?"))
(define (check-substitute-availability)
  "Check that at least one of the Guix substitute servers is available."
  (define (substitutes-available?)
    (common-urls-alive?
     (list
      "https://bordeaux.guix.gnu.org/nix-cache-info"
      "https://ci.guix.gnu.org/nix-cache-info")))
    (or
     (file-exists? "/tmp/installer-assume-online")
     (common-urls-alive?
      (list
       "https://bordeaux.guix.gnu.org/nix-cache-info"
       "https://ci.guix.gnu.org/nix-cache-info"))))

  (let* ((full-value 5))
    (run-scale-page