tests: Pass ‘User-Agent’ header when downloading from www.gnu.org.

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 <ludo@gnu.org>
Merges: #7470

1 files changed, 4 insertions, 1 deletions

diff --git a/tests/derivations.scm b/tests/derivations.scm
index a5e82238a48..7ae8fce8cfb 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)))))