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

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

15
tests/guix-package.sh
View File

@@ -358,6 +358,21 @@ EOF
guix package --bootstrap -m "$module_dir/manifest.scm"
guix package -I | grep guile
test `guix package -I | wc -l` -eq 1
guix package --rollback --bootstrap
# Applying a manifest file with inferior packages.
cat > "$module_dir/manifest.scm"<<EOF
(use-modules (guix inferior))
(define i
(open-inferior "$abs_top_srcdir" #:command "scripts/guix"))
(let ((guile (car (lookup-inferior-packages i "guile-bootstrap"))))
(packages->manifest (list guile)))
EOF
guix package --bootstrap -m "$module_dir/manifest.scm"
guix package -I | grep guile
test `guix package -I | wc -l` -eq 1
# Error reporting.
cat > "$module_dir/manifest.scm"<<EOF