aboutsummaryrefslogtreecommitdiff
path: root/tests/store.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-11-12 23:36:29 +0100
committerLudovic Courtès <ludo@gnu.org>2013-11-13 00:29:05 +0100
commit9336e5b5e7b05e636b147aba2c97357620711c2a (patch)
treee54a9d862b8b5693c464175f47358e069c73d81d /tests/store.scm
parente387ab7c10b18427b97cd22526f1b135856a083e (diff)
downloadguix-9336e5b5e7b05e636b147aba2c97357620711c2a.tar
guix-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/store.scm')
-rw-r--r--tests/store.scm9
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"