~ruther/guix-local: store: Adjust UTF-8 test to Guile 2.2.

a9a0227c0127e1813190a7664f7ad858e791480d — Ludovic Courtès 9 years ago 70dfdd5

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 '?'.

patch browse .tar.gz

1 files changed, 3 insertions(+), 1 deletions(-)

M tests/store.scm

M tests/store.scm => tests/store.scm +3 -1

@@ 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" '()))