diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-11-01 01:39:23 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-11-01 01:39:23 +0100 |
commit | e3d741065e29b6f0d050592da853b641205c21bc (patch) | |
tree | 9356839f14e4239361b0f83bdd23298f4160cfcd /tests | |
parent | 07d18f39cc8c547e4ea893b18d5a5dbc755e0287 (diff) | |
download | guix-e3d741065e29b6f0d050592da853b641205c21bc.tar.gz guix-e3d741065e29b6f0d050592da853b641205c21bc.zip |
store: Add `store-path-package-name'.
* guix/store.scm (store-path-package-name): New procedure.
* tests/utils.scm ("store-path-package-name"): New test.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/utils.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index a0b42052ad..7dd248fae2 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -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) |