3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

profiles: 'profile-derivation' now honors #:system.

Fixes <http://bugs.gnu.org/23682>.
Reported by Ander GM <anthk@openmailbox.org>.

* guix/profiles.scm (profile-derivation): Pass #:system to
'gexp->derivation'.
* tests/guix-environment.sh: Add 'guix environment -s' test.
This commit is contained in:
Ludovic Courtès 2016-06-05 00:04:05 +02:00
parent 834a2fc1ff
commit 40d71e44f5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 16 additions and 0 deletions

View file

@ -811,6 +811,7 @@ the monadic procedures listed in HOOKS--such as an Info 'dir' file, etc."
#:search-paths search-paths)))
(gexp->derivation "profile" builder
#:system system
#:modules '((guix build profiles)
(guix build union)
(guix build utils)

View file

@ -57,6 +57,21 @@ else
test $? = 42
fi
case "`uname -m`" in
x86_64)
# On x86_64, we should be able to create a 32-bit environment.
guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
-- guile -c '(exit (string-prefix? "x86_64" %host-type))'
guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
-s i686-linux \
-- guile -c '(exit (string-prefix? "i686" %host-type))'
;;
*)
echo "nothing to do" >&2
;;
esac
# Same as above, but with deprecated -E flag.
if guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
-E "guile -c '(exit 42)'"