diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-04-26 16:38:38 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-04-28 23:24:18 +0200 |
commit | eee212710978fb2044d3312aff0bf33b508aa026 (patch) | |
tree | 2c68762f394d3dc47926bd2810e2026332c75321 /tests | |
parent | 02100028bb78b9bb17764eab0f009fd6fa07fd7b (diff) | |
download | gnu-guix-eee212710978fb2044d3312aff0bf33b508aa026.tar gnu-guix-eee212710978fb2044d3312aff0bf33b508aa026.tar.gz |
store: (direct-store-path? (%store-prefix)) returns #f.
* guix/store.scm (direct-store-path?): Return #f if PATH
is (%store-prefix).
* tests/store.scm ("direct-store-path?"): Add test.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/store.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/store.scm b/tests/store.scm index 90137b9754..b0f609f818 100644 --- a/tests/store.scm +++ b/tests/store.scm @@ -85,7 +85,8 @@ (not (direct-store-path? (string-append (%store-prefix) - "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7/bin/guile"))))) + "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7/bin/guile"))) + (not (direct-store-path? (%store-prefix))))) (test-skip (if %store 0 13)) |