01/06: environment: Non ad-hoc mode also honors transformation options.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit d108f59761f6581bff0d405c38852688ba04961d
Author: Ludovic Courtès <address@hidden>
Date:   Tue May 7 14:38:06 2019 +0200

    environment: Non ad-hoc mode also honors transformation options.
    
    Fixes <https://bugs.gnu.org/35618>.
    Reported by Florent Pruvost <address@hidden>.
    
    * guix/scripts/environment.scm (options/resolve-packages): Add call to
    TRANSFORM in non "ad-hoc" case.
    * tests/guix-environment.sh: Add test.
---
 guix/scripts/environment.scm |  2 +-
 tests/guix-environment.sh    | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 99c351a..c134162 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -341,7 +341,7 @@ for the corresponding packages."
                      (list (package->manifest-entry* package output))))
                   (('package 'package (? string? spec))
                    (package-environment-inputs
-                    (specification->package+output spec)))
+                    (transform (specification->package+output spec))))
                   (('expression mode str)
                    ;; Add all the outputs of the package STR evaluates to.
                    (packages->outputs (read/eval str) mode))
diff --git a/tests/guix-environment.sh b/tests/guix-environment.sh
index 7ea9c20..a670db3 100644
--- a/tests/guix-environment.sh
+++ b/tests/guix-environment.sh
@@ -133,6 +133,25 @@ case "$transformed_drv" in
 esac
 rmdir "$tmpdir/emacs-36.8"
 
+# Transformation options without '--ad-hoc'.
+drv="`guix environment -n emacs-geiser 2>&1 | grep '\.drv$'`"
+transformed_drv="`guix environment -n emacs-geiser \
+  --with-input=emacs-minimal=vim 2>&1 | grep '\.drv$'`"
+test "$drv" != "$transformed_drv"
+case "$drv" in
+    *-emacs-minimal*.drv*) true;;
+    *)                     false;;
+esac
+case "$transformed_drv" in
+    *-emacs-minimal*.drv*) false;;
+    *)                     true;;
+esac
+case "$transformed_drv" in
+    *-vim*.drv*) true;;
+    *)           false;;
+esac
+
+
 if guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' 2> /dev/null
 then
     # Compute the build environment for the initial GNU Make.