store: Add tests for 'store-path-package-name'.
* tests/store.scm ("store-path-package-name", "store-path-package-name #f"): New tests.
This commit is contained in:
parent
0b7e8e9d49
commit
c61a5b4a6d
|
@ -65,6 +65,17 @@
|
||||||
(string-append (%store-prefix)
|
(string-append (%store-prefix)
|
||||||
"/foo/bar/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7")))
|
"/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?"
|
(test-assert "direct-store-path?"
|
||||||
(and (direct-store-path?
|
(and (direct-store-path?
|
||||||
(string-append (%store-prefix)
|
(string-append (%store-prefix)
|
||||||
|
|
Loading…
Reference in New Issue