aboutsummaryrefslogtreecommitdiff
path: root/tests/store.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-04-01 16:08:31 +0200
committerLudovic Courtès <ludo@gnu.org>2013-04-01 17:35:27 +0200
commit2c6ab6ccd430550dfbc95fbdd22ae017f39e5901 (patch)
tree4afc3d506da5624f3697b005c635720cd5b3d7bd /tests/store.scm
parentef8c03407dce8d6ebdfcf53318ac9a09b5ee8461 (diff)
downloadgnu-guix-2c6ab6ccd430550dfbc95fbdd22ae017f39e5901.tar
gnu-guix-2c6ab6ccd430550dfbc95fbdd22ae017f39e5901.tar.gz
store: Add `store-path-hash-part'.
* guix/store.scm (store-path-hash-part): New procedure. * tests/store.scm ("store-path-hash-part", "store-path-hash-part #f"): New tests.
Diffstat (limited to 'tests/store.scm')
-rw-r--r--tests/store.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/store.scm b/tests/store.scm
index c2de99e160..d6e1aa54e3 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -48,6 +48,18 @@
(test-begin "store")
+(test-equal "store-path-hash-part"
+ "283gqy39v3g9dxjy26rynl0zls82fmcg"
+ (store-path-hash-part
+ (string-append (%store-prefix)
+ "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7")))
+
+(test-equal "store-path-hash-part #f"
+ #f
+ (store-path-hash-part
+ (string-append (%store-prefix)
+ "/foo/bar/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7")))
+
(test-skip (if %store 0 10))
(test-assert "dead-paths"