diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-03-15 13:54:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-03-15 15:19:53 +0100 |
| commit | a9a0227c0127e1813190a7664f7ad858e791480d (patch) | |
| tree | 6f5694b90cfce3c20214dae80ffd45fa4b5fd67e | |
| parent | 70dfdd501af46b0db138f3e289523e2d43c8e76d (diff) | |
| download | gnu-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 '?'.
| -rw-r--r-- | tests/store.scm | 4 |
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" '())) |