From 344bf876f69ef5f79e77ad0aa1684d9327123e74 Mon Sep 17 00:00:00 2001 From: Rutherther Date: Sat, 18 Oct 2025 18:54:08 +0200 Subject: [PATCH] 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 --- gnu/installer/newt/network.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index 459c6d58d8..c78a7c5461 100644 --- a/gnu/installer/newt/network.scm +++ b/gnu/installer/newt/network.scm @@ -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