aboutsummaryrefslogtreecommitdiff
path: root/tests/store.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-03-14 17:16:10 +0100
committerLudovic Courtès <ludo@gnu.org>2014-03-14 17:16:10 +0100
commit11e7a6cf4612b83f3fe3ecfcce3e7c0b21ecf953 (patch)
tree929ef045e3f5be4e938a58b09d700052afe142e9 /tests/store.scm
parent1a8ea0a1885ca5fff85eb00fc79d6c6bcd47818a (diff)
downloadguix-11e7a6cf4612b83f3fe3ecfcce3e7c0b21ecf953.tar
guix-11e7a6cf4612b83f3fe3ecfcce3e7c0b21ecf953.tar.gz
store: Add 'hash-part->path'.
* guix/store.scm (hash-part->path): New procedure. * tests/store.scm ("hash-part->path"): New test.
Diffstat (limited to 'tests/store.scm')
-rw-r--r--tests/store.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/store.scm b/tests/store.scm
index 8a25c7353b..78023a423d 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -87,7 +87,12 @@
(%store-prefix)
"/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7/bin/guile")))))
-(test-skip (if %store 0 10))
+(test-skip (if %store 0 11))
+
+(test-assert "hash-part->path"
+ (let ((p (add-text-to-store %store "hello" "hello, world")))
+ (equal? (hash-part->path %store (store-path-hash-part p))
+ p)))
(test-assert "dead-paths"
(let ((p (add-text-to-store %store "random-text" (random-text))))