diff options
| -rw-r--r-- | tests/derivations.scm | 5 |
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 @@ | |||
| 584 | (set! (@ (guile) set-port-encoding!) (const #t)) | 584 | (set! (@ (guile) set-port-encoding!) (const #t)) |
| 585 | 585 | ||
| 586 | (let-values (((response body) | 586 | (let-values (((response body) |
| 587 | ;; Note: www.gnu.org returns 403 when | ||
| 588 | ;; 'User-Agent' is missing. | ||
| 587 | (http-get "http://www.gnu.org/licenses/gpl-3.0.txt" | 589 | (http-get "http://www.gnu.org/licenses/gpl-3.0.txt" |
| 588 | #:decode-body? #f))) | 590 | #:decode-body? #f |
| 591 | #:headers '((user-agent . "GNU Guile"))))) | ||
| 589 | (call-with-output-file %output | 592 | (call-with-output-file %output |
| 590 | (lambda (port) | 593 | (lambda (port) |
| 591 | (put-bytevector port body))))) | 594 | (put-bytevector port body))))) |