aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-12-11 00:18:07 +0100
committerLudovic Courtès <ludo@gnu.org>2013-12-11 00:18:14 +0100
commitc61a5b4a6d9703c7a76bce0e22e8e0644126f86b (patch)
tree0f9862e458fb190c4b58d086aa8616782b98c44a /tests
parent0b7e8e9d49c136c0598f3eb65f137a3c5c203eff (diff)
downloadguix-c61a5b4a6d9703c7a76bce0e22e8e0644126f86b.tar
guix-c61a5b4a6d9703c7a76bce0e22e8e0644126f86b.tar.gz
store: Add tests for 'store-path-package-name'.
* tests/store.scm ("store-path-package-name", "store-path-package-name #f"): New tests.
Diffstat (limited to 'tests')
-rw-r--r--tests/store.scm11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/store.scm b/tests/store.scm
index f1a3f160f4..281b923c28 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -65,6 +65,17 @@
(string-append (%store-prefix)
"/foo/bar/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7")))
+(test-equal "store-path-package-name"
+ "guile-2.0.7"
+ (store-path-package-name
+ (string-append (%store-prefix)
+ "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7")))
+
+(test-equal "store-path-package-name #f"
+ #f
+ (store-path-package-name
+ "/foo/bar/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7"))
+
(test-assert "direct-store-path?"
(and (direct-store-path?
(string-append (%store-prefix)