diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-12-11 00:18:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-12-11 00:18:14 +0100 |
| commit | c61a5b4a6d9703c7a76bce0e22e8e0644126f86b (patch) | |
| tree | 0f9862e458fb190c4b58d086aa8616782b98c44a | |
| parent | 0b7e8e9d49c136c0598f3eb65f137a3c5c203eff (diff) | |
| download | patches-c61a5b4a6d9703c7a76bce0e22e8e0644126f86b.tar patches-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.
| -rw-r--r-- | tests/store.scm | 11 |
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) |