nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

derivations: Adjust builder encoding test. 

This is a followup to 9231ef12f2.

* tests/derivations.scm ("build-expression->derivation and builder
encoding"): Set '%default-port-encoding' to "UTF-8".
This commit is contained in:
Ludovic Courtès 2017-04-22 14:05:38 +02:00
parent 611924eb87
commit 8a8e2d2ed5
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/derivations.scm
View File

@ -707,12 +707,13 @@
(drv (build-expression->derivation %store "foo" exp))) (drv (build-expression->derivation %store "foo" exp)))
(match (derivation-builder-arguments drv) (match (derivation-builder-arguments drv)
((... builder) ((... builder)
(call-with-input-file builder (with-fluids ((%default-port-encoding "UTF-8"))
(lambda (port) (call-with-input-file builder
(list (port-encoding port) (lambda (port)
(->bool (list (port-encoding port)
(string-contains (get-string-all port) (->bool
"(λ (α) (+ α 1))"))))))))) (string-contains (get-string-all port)
"(λ (α) (+ α 1))"))))))))))
(test-assert "build-expression->derivation and derivation-prerequisites" (test-assert "build-expression->derivation and derivation-prerequisites"
(let ((drv (build-expression->derivation %store "fail" #f))) (let ((drv (build-expression->derivation %store "fail" #f)))