summaryrefslogtreecommitdiff
path: root/tests/utils.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/utils.scm')
-rw-r--r--tests/utils.scm7
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)