mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
packages: Add 'package-unique-version-prefix'.
* gnu/packages.scm (package-unique-version-prefix): New procedure.
* guix/scripts/package.scm (manifest-entry-version-prefix): Use it.
* tests/packages.scm ("package-unique-version-prefix, gcc@8")
("package-unique-version-prefix, grep"): New tests.
This commit is contained in:
@@ -1923,6 +1923,19 @@
|
||||
(package-location (specification->package "guile@2"))
|
||||
(specification->location "guile@2"))
|
||||
|
||||
(test-equal "package-unique-version-prefix, gcc@8"
|
||||
"8"
|
||||
(let ((gcc (specification->package "gcc-toolchain@8")))
|
||||
(package-unique-version-prefix (package-name gcc)
|
||||
(package-version gcc))))
|
||||
|
||||
(test-equal "package-unique-version-prefix, grep"
|
||||
""
|
||||
(let ((grep (specification->package "grep")))
|
||||
(package-unique-version-prefix (package-name grep)
|
||||
(package-version grep))))
|
||||
|
||||
|
||||
(test-eq "this-package-input, exists"
|
||||
hello
|
||||
(package-arguments
|
||||
|
||||
Reference in New Issue
Block a user