tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

packages: Add `package-output'.

Browse Source 
* guix/packages.scm (package-output): New procedure.
* tests/packages.scm ("package-output"): New test.
This commit is contained in:
Ludovic Courtès
2013-02-16 01:37:26 +01:00
parent 0228826262
commit d510ab4614
2 changed files with 21 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tests/packages.scm
View File

@@ -71,7 +71,7 @@
("d" ,d) ("d/x" "something.drv"))
(pk 'x (package-transitive-inputs e))))))
(test-skip (if (not %store) 3 0))
(test-skip (if (not %store) 4 0))
(test-assert "return values"
(let-values (((drv-path drv)
@@ -79,6 +79,13 @@
(and (derivation-path? drv-path)
(derivation? drv))))
(test-assert "package-output"
(let* ((package (dummy-package "p"))
(drv-path (package-derivation %store package)))
(and (derivation-path? drv-path)
(string=? (derivation-path->output-path drv-path)
(package-output %store package "out")))))
(test-assert "trivial"
(let* ((p (package (inherit (dummy-package "trivial"))
(build-system trivial-build-system)