From e3d741065e29b6f0d050592da853b641205c21bc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 1 Nov 2012 01:39:23 +0100
Subject: store: Add `store-path-package-name'.

* guix/store.scm (store-path-package-name): New procedure.
* tests/utils.scm ("store-path-package-name"): New test.
---
 tests/utils.scm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'tests')

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)
 
 
-- 
cgit v1.2.3