ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix package: --manifest DTRT when combined with --dry-run.

Browse source 
* guix/scripts/package.scm (guix-package)[process-actions]: Process 'manifest
  action regardless of whether 'dry-run? is set.  Adjust the message
  accordingly.
* tests/guix-package.sh: Add error-reporting test.
This commit is contained in:
Ludovic Courtès 2015-05-25 19:33:19 +02:00
parent 2abcc97fd1
commit 5f1087c481
2 changed files with 25 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
guix/scripts/package.scm
View file

@ -886,14 +886,16 @@ (define (build-and-use-profile manifest)
(alist-delete 'delete-generations opts)))
(_ #f))
opts))
((and (assoc-ref opts 'manifest)
(not dry-run?))
(let* ((file-name (assoc-ref opts 'manifest))
((assoc-ref opts 'manifest)
(let* ((file-name (assoc-ref opts 'manifest))
(user-module (make-user-module '((guix profiles)
(gnu))))
(manifest (load* file-name user-module)))
(format #t (_ "installing new manifest from ~a with ~d entries.~%")
file-name (length (manifest-entries manifest)))
(manifest (load* file-name user-module)))
(if (assoc-ref opts 'dry-run?)
(format #t (_ "would install new manifest from '~a' with ~d entries~%")
file-name (length (manifest-entries manifest)))
(format #t (_ "installing new manifest from '~a' with ~d entries~%")
file-name (length (manifest-entries manifest))))
(build-and-use-profile manifest)))
(else
(let* ((manifest (profile-manifest profile))

18
tests/guix-package.sh
View file

@ -245,7 +245,7 @@ guix package -I
unset GUIX_BUILD_OPTIONS
# Applying a manifest file
# Applying a manifest file.
cat > "$module_dir/manifest.scm"<<EOF
(use-package-modules bootstrap)
@ -254,3 +254,19 @@ 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
(use-package-modules bootstrap)
(packages->manifest
(list %bootstrap-guile
wonderful-package-that-does-not-exist))
EOF
if guix package --bootstrap -n -m "$module_dir/manifest.scm" \
2> "$module_dir/stderr"
then false
else
cat "$module_dir/stderr"
grep "manifest.scm:[1-3]:.*[Uu]nbound variable.*wonderful-package" \
"$module_dir/stderr"
fi