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-01 17:35:27 +0200 |
| commit | 2c6ab6ccd430550dfbc95fbdd22ae017f39e5901 (patch) | |
| tree | 4afc3d506da5624f3697b005c635720cd5b3d7bd /tests/store.scm | |
| parent | ef8c03407dce8d6ebdfcf53318ac9a09b5ee8461 (diff) | |
| download | guix-2c6ab6ccd430550dfbc95fbdd22ae017f39e5901.tar 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.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" |