diff options
| -rw-r--r-- | tests/derivations.scm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm index b4e4ccea8e..ec48f44420 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -214,14 +214,15 @@ (test-assert "build-expression->derivation for fixed-output derivation" (let* ((url "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz") - (builder `(begin - (use-modules (web client) (web uri) - (rnrs io ports)) - (let ((bv (http-get (string->uri ,url) - #:decode-body? #f))) - (call-with-output-file %output - (lambda (p) - (put-bytevector p bv)))))) + (builder + `(begin + (use-modules (web client) (web uri) + (rnrs io ports) (srfi srfi-11)) + (let-values (((resp bv) + (http-get (string->uri ,url) #:decode-body? #f))) + (call-with-output-file %output + (lambda (p) + (put-bytevector p bv)))))) (drv-path (build-expression->derivation %store "hello-2.8.tar.gz" (%current-system) builder '() #:hash (nix-base32-string->bytevector |