diff options
Diffstat (limited to 'tests/utils.scm')
| -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) |