aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-03-15 13:54:29 +0100
committerLudovic Courtès <ludo@gnu.org>2017-03-15 15:19:53 +0100
commita9a0227c0127e1813190a7664f7ad858e791480d (patch)
tree6f5694b90cfce3c20214dae80ffd45fa4b5fd67e /tests
parent70dfdd501af46b0db138f3e289523e2d43c8e76d (diff)
downloadgnu-guix-a9a0227c0127e1813190a7664f7ad858e791480d.tar
gnu-guix-a9a0227c0127e1813190a7664f7ad858e791480d.tar.gz
store: Adjust UTF-8 test to Guile 2.2.
* tests/store.scm ("current-build-output-port, UTF-8 + garbage"): On Guile 2.2, expect REPLACEMENT CHARACTER instead of '?'.
Diffstat (limited to 'tests')
-rw-r--r--tests/store.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/store.scm b/tests/store.scm
index 64d3553f25..c0ebe7b941 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -383,7 +383,9 @@
(package-derivation %store %bootstrap-guile))))
(guard (c ((nix-protocol-error? c) #t))
(build-derivations %store (list d))))))))
- "garbage: ?lambda: λ"))
+ (cond-expand
+ (guile-2.0 "garbage: ?lambda: λ")
+ (else "garbage: �lambda: λ"))))
(test-assert "log-file, derivation"
(let* ((b (add-text-to-store %store "build" "echo $foo > $out" '()))