me
/
guix
Archived
1
0
Fork 0
Code

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

* tests/store.scm ("store-path-package-name", "store-path-package-name
  #f"): New tests.
master
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)
"/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)