diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-04-22 14:05:38 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-04-22 14:07:46 +0200 |
| commit | 8a8e2d2ed5932a13a73583d32b152133d28aedf5 (patch) | |
| tree | 36d37493657d0440af9b71e7f7f7fddf00a70022 | |
| parent | 611924eb87df6a6615e458baa9c53b6117a05136 (diff) | |
| download | patches-8a8e2d2ed5932a13a73583d32b152133d28aedf5.tar patches-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.scm | 13 |
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))) |