ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix the `build-expression->derivation' fixed-output test.

Browse source 
* tests/derivations.scm ("build-expression->derivation"): Fix the
  builder to actually pass a bytevector to `put-bytevector'.
This commit is contained in:
Ludovic Courtès 2012-06-11 23:02:39 +02:00
parent 9809055707
commit 0e383c76ce
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/derivations.scm
View file

@ -214,11 +214,12 @@ (define %coreutils
(test-assert "build-expression->derivation for fixed-output derivation"
(let* ((url "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz")
(builder `(begin
(builder
`(begin
(use-modules (web client) (web uri)
(rnrs io ports))
(let ((bv (http-get (string->uri ,url)
#:decode-body? #f)))
(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))))))