ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -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))) (alist-delete 'delete-generations opts)))
(_ #f)) (_ #f))
opts)) opts))
((and (assoc-ref opts 'manifest) ((assoc-ref opts 'manifest)
(not dry-run?)) (let* ((file-name (assoc-ref opts 'manifest))
(let* ((file-name (assoc-ref opts 'manifest))
(user-module (make-user-module '((guix profiles) (user-module (make-user-module '((guix profiles)
(gnu)))) (gnu))))
(manifest (load* file-name user-module))) (manifest (load* file-name user-module)))
(format #t (_ "installing new manifest from ~a with ~d entries.~%") (if (assoc-ref opts 'dry-run?)
file-name (length (manifest-entries manifest))) (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))) (build-and-use-profile manifest)))
(else (else
(let* ((manifest (profile-manifest profile)) (let* ((manifest (profile-manifest profile))

18
tests/guix-package.sh
View file

@ -245,7 +245,7 @@ guix package -I
unset GUIX_BUILD_OPTIONS unset GUIX_BUILD_OPTIONS
# Applying a manifest file # Applying a manifest file.
cat > "$module_dir/manifest.scm"<<EOF cat > "$module_dir/manifest.scm"<<EOF
(use-package-modules bootstrap) (use-package-modules bootstrap)
@ -254,3 +254,19 @@ EOF
guix package --bootstrap -m "$module_dir/manifest.scm" guix package --bootstrap -m "$module_dir/manifest.scm"
guix package -I | grep guile guix package -I | grep guile
test `guix package -I | wc -l` -eq 1 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