me/guix
Archived
1
0
Fork 0
Code Activity

store: Add tests for 'store-path-package-name'.

Browse source 
* tests/store.scm ("store-path-package-name", "store-path-package-name
  #f"): New tests.
This commit is contained in:
Ludovic Courtès 2013-12-11 00:18:07 +01:00
parent 0b7e8e9d49
commit c61a5b4a6d
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tests/store.scm
View file

@ -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)