mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-28 12:01:49 +02:00
derivations: Add properties.
* guix/derivations.scm (derivation): Add #:properties parameter.
[user+system-env-vars]: Honor it.
(derivation-properties): New procedure.
(build-expression->derivation): Add #:properties and pass it to
'derivation'.
* guix/gexp.scm (gexp->derivation): Likewise.
* tests/derivations.scm ("derivation-properties"): New test.
* tests/gexp.scm ("gexp->derivation properties"): New test.
* doc/guix.texi (Derivations, G-Expressions): Adjust accordingly.
This commit is contained in:
@@ -1132,6 +1132,16 @@
|
||||
((p2 . _)
|
||||
(string<? p1 p2)))))))))))))
|
||||
|
||||
(test-equal "derivation-properties"
|
||||
(list '() '((type . test)))
|
||||
(let ((drv1 (build-expression->derivation %store "bar"
|
||||
'(mkdir %output)))
|
||||
(drv2 (build-expression->derivation %store "foo"
|
||||
'(mkdir %output)
|
||||
#:properties '((type . test)))))
|
||||
(list (derivation-properties drv1)
|
||||
(derivation-properties drv2))))
|
||||
|
||||
(test-equal "map-derivation"
|
||||
"hello"
|
||||
(let* ((joke (package-derivation %store guile-1.8))
|
||||
|
||||
Reference in New Issue
Block a user