From 0a8acc00599a43763697f8bfc4542ff0b34cf689 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 25 Mar 2026 19:03:38 +0100 Subject: [PATCH] =?UTF-8?q?tests:=20Pass=20=E2=80=98User-Agent=E2=80=99=20?= =?UTF-8?q?header=20when=20downloading=20from=20www.gnu.org.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This test had been failing for a few months in part due to this change at www.gnu.org. * tests/derivations.scm ("fixed-output derivation, network access, external host"): Pass #:headers to ‘http-get’. Change-Id: Ife54e65b2665704af433df669df0d4010b49884c Signed-off-by: Ludovic Courtès Merges: #7470 --- tests/derivations.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/derivations.scm b/tests/derivations.scm index a5e82238a4..7ae8fce8cf 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -584,8 +584,11 @@ (set! (@ (guile) set-port-encoding!) (const #t)) (let-values (((response body) + ;; Note: www.gnu.org returns 403 when + ;; 'User-Agent' is missing. (http-get "http://www.gnu.org/licenses/gpl-3.0.txt" - #:decode-body? #f))) + #:decode-body? #f + #:headers '((user-agent . "GNU Guile"))))) (call-with-output-file %output (lambda (port) (put-bytevector port body)))))