~ruther/guix-local: Fix the `build-expression->derivation' fixed-output test.

0e383c76ce4fb94b47bd69f493ac3e1858b879f0 — Ludovic Courtès 13 years ago 9809055

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'.

patch browse .tar.gz

1 files changed, 9 insertions(+), 8 deletions(-)

M tests/derivations.scm

M tests/derivations.scm => tests/derivations.scm +9 -8

@@ 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