diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-11-12 23:36:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-11-13 00:29:05 +0100 |
| commit | 9336e5b5e7b05e636b147aba2c97357620711c2a (patch) | |
| tree | e54a9d862b8b5693c464175f47358e069c73d81d /tests | |
| parent | e387ab7c10b18427b97cd22526f1b135856a083e (diff) | |
| download | patches-9336e5b5e7b05e636b147aba2c97357620711c2a.tar patches-9336e5b5e7b05e636b147aba2c97357620711c2a.tar.gz | |
store: Make 'direct-store-path?' public.
* guix/store.scm (direct-store-path?): New procedure.
* guix/derivations.scm (derivation)[direct-store-path?]: Remove.
* tests/store.scm ("direct-store-path?"): New test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/store.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/store.scm b/tests/store.scm index 430027c33b..741803884d 100644 --- a/tests/store.scm +++ b/tests/store.scm @@ -65,6 +65,15 @@ (string-append (%store-prefix) "/foo/bar/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7"))) +(test-assert "direct-store-path?" + (and (direct-store-path? + (string-append (%store-prefix) + "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7")) + (not (direct-store-path? + (string-append + (%store-prefix) + "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7/bin/guile"))))) + (test-skip (if %store 0 10)) (test-assert "dead-paths" |