diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-04-01 16:08:31 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-12 21:57:57 +0200 |
| commit | afb49942e032000ba03ae879a7a1d29803aac094 (patch) | |
| tree | 30be807d83b24fa34594881b96ce715ab1707976 /tests | |
| parent | 5477e0342f477bafc0fd23d7ea85288fdd3a0fb7 (diff) | |
| download | guix-afb49942e032000ba03ae879a7a1d29803aac094.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')
| -rw-r--r-- | tests/store.scm | 12 |
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" |