aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-04-22 14:05:38 +0200
committerLudovic Courtès <ludo@gnu.org>2017-04-22 14:07:46 +0200
commit8a8e2d2ed5932a13a73583d32b152133d28aedf5 (patch)
tree36d37493657d0440af9b71e7f7f7fddf00a70022
parent611924eb87df6a6615e458baa9c53b6117a05136 (diff)
downloadguix-8a8e2d2ed5932a13a73583d32b152133d28aedf5.tar
guix-8a8e2d2ed5932a13a73583d32b152133d28aedf5.tar.gz
derivations: Adjust builder encoding test.
This is a followup to 9231ef12f2a595b8f1e677dbe50cc499555302b6. * tests/derivations.scm ("build-expression->derivation and builder encoding"): Set '%default-port-encoding' to "UTF-8".
-rw-r--r--tests/derivations.scm13
1 files changed, 7 insertions, 6 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm
index 626e4d20e2..cabbf7b951 100644
--- a/tests/derivations.scm
+++ b/tests/derivations.scm
@@ -707,12 +707,13 @@
(drv (build-expression->derivation %store "foo" exp)))
(match (derivation-builder-arguments drv)
((... builder)
- (call-with-input-file builder
- (lambda (port)
- (list (port-encoding port)
- (->bool
- (string-contains (get-string-all port)
- "(λ (α) (+ α 1))")))))))))
+ (with-fluids ((%default-port-encoding "UTF-8"))
+ (call-with-input-file builder
+ (lambda (port)
+ (list (port-encoding port)
+ (->bool
+ (string-contains (get-string-all port)
+ "(λ (α) (+ α 1))"))))))))))
(test-assert "build-expression->derivation and derivation-prerequisites"
(let ((drv (build-expression->derivation %store "fail" #f)))