From 8a8e2d2ed5932a13a73583d32b152133d28aedf5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 22 Apr 2017 14:05:38 +0200
Subject: 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".
---
 tests/derivations.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'tests/derivations.scm')

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)))
-- 
cgit v1.2.3