From 0e383c76ce4fb94b47bd69f493ac3e1858b879f0 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 11 Jun 2012 23:02:39 +0200 Subject: Fix the `build-expression->derivation' fixed-output test. * tests/derivations.scm ("build-expression->derivation"): Fix the builder to actually pass a bytevector to `put-bytevector'. --- tests/derivations.scm | 17 +++++++++-------- 1 file 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 -- cgit 1.4.1