tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

store: Add `store-path-package-name'.

Browse Source 
* guix/store.scm (store-path-package-name): New procedure.
* tests/utils.scm ("store-path-package-name"): New test.
This commit is contained in:
Ludovic Courtès
2012-11-01 01:39:23 +01:00
parent 07d18f39cc
commit e3d741065e
2 changed files with 19 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tests/utils.scm
View File

@@ -19,6 +19,7 @@
(define-module (test-utils)
#:use-module (guix utils)
#:use-module ((guix store) #:select (store-path-package-name))
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26)
@@ -162,6 +163,12 @@
(match b (($ <foo> 1 2) #t))
(equal? b c)))))
;; This is actually in (guix store).
(test-equal "store-path-package-name"
"bash-4.2-p24"
(store-path-package-name
"/nix/store/qvs2rj2ia5vci3wsdb7qvydrmacig4pg-bash-4.2-p24"))
(test-end)