tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-28 12:01:49 +02:00
Code Activity

profiles: 'packages->manifest' now accepts inferior packages.

Browse Source 
* guix/profiles.scm (packages->manifest)[inferiors-loaded?]: New
variable.
[inferior->entry]: New procedure.
Accept inferior packages when INFERIORS-LOADED? is true.
* tests/guix-package.sh: Add test using a manifest with an inferior.
* tests/inferior.scm ("packages->manifest"): New test.
This commit is contained in:
Ludovic Courtès
2018-09-18 10:21:28 +02:00
committed by Ludovic Courtès
parent 2e6d64e122
commit 811b21fb15
3 changed files with 49 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/inferior.scm
+11
View File
@@ -182,4 +182,15 @@
(close-inferior inferior)
(manifest-entry->list entry)))
(test-equal "packages->manifest"
(map manifest-entry->list
(manifest-entries (packages->manifest
(find-best-packages-by-name "guile" #f))))
(let* ((inferior (open-inferior %top-builddir
#:command "scripts/guix"))
(guile (first (lookup-inferior-packages inferior "guile")))
(manifest (packages->manifest (list guile))))
(close-inferior inferior)
(map manifest-entry->list (manifest-entries manifest))))
(test-end "inferior")