diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-03-22 14:40:51 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-03-22 15:02:33 +0100 |
| commit | ed407f3ccc5de3e440884001d05887a07df5fa81 (patch) | |
| tree | 74d11f25ed1a62e30b493eac256fc2ea21488f8d /tests | |
| parent | aeb6fe5fa0891c1b825a8f403dd1c42bbfd6e952 (diff) | |
tests: Fix 'cond-expand' clause for 2.2/2.0.
Fixes a mistake in a9a0227c0127e1813190a7664f7ad858e791480d.
* tests/store.scm ("current-build-output-port, UTF-8 + garbage"):
Inverse the 'cond-expand' clauses since the 'guile-2.0' feature doesn't
exist.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/store.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/store.scm b/tests/store.scm index c0ebe7b9415..45150d36cab 100644 --- a/tests/store.scm +++ b/tests/store.scm | |||
| @@ -384,8 +384,8 @@ | |||
| 384 | (guard (c ((nix-protocol-error? c) #t)) | 384 | (guard (c ((nix-protocol-error? c) #t)) |
| 385 | (build-derivations %store (list d)))))))) | 385 | (build-derivations %store (list d)))))))) |
| 386 | (cond-expand | 386 | (cond-expand |
| 387 | (guile-2.0 "garbage: ?lambda: λ") | 387 | (guile-2.2 "garbage: �lambda: λ") |
| 388 | (else "garbage: �lambda: λ")))) | 388 | (else "garbage: ?lambda: λ")))) |
| 389 | 389 | ||
| 390 | (test-assert "log-file, derivation" | 390 | (test-assert "log-file, derivation" |
| 391 | (let* ((b (add-text-to-store %store "build" "echo $foo > $out" '())) | 391 | (let* ((b (add-text-to-store %store "build" "echo $foo > $out" '())) |