[jackhill/guix/guix.git] / tests / guix-environment.sh

# GNU Guix --- Functional package management for GNU
# Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
#
# This file is part of GNU Guix.
#
# GNU Guix is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or (at
# your option) any later version.
#
# GNU Guix is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

#
# Test 'guix environment'.
#

set -e

guix environment --version

tmpdir="t-guix-environment-$$"
gcroot="t-guix-environment-gc-root-$$"
trap 'rm -r "$tmpdir"; rm -f "$gcroot"' EXIT

mkdir "$tmpdir"

# 'guix environment' launches /bin/sh if 'SHELL' is unset, so export 'SHELL'
# since we know it's valid (build environments lack /bin/sh.)
export SHELL

# Check the environment variables for the bootstrap Guile.
guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
     --search-paths > "$tmpdir/a"
guix environment --bootstrap --ad-hoc guile-bootstrap:out --pure \
     --search-paths > "$tmpdir/b"

# $PATH must appear in the search paths, and nothing else.
grep -E '^export PATH=.*profile/bin' "$tmpdir/a"
test "`wc -l < "$tmpdir/a"`" = 1

# Guile must be on $PATH.
test -x `sed -r 's/^export PATH="(.*)"/\1/' "$tmpdir/a"`/guile

cmp "$tmpdir/a" "$tmpdir/b"

# Check '--preserve'.
GUIX_TEST_ABC=1
GUIX_TEST_DEF=2
GUIX_TEST_XYZ=3
export GUIX_TEST_ABC GUIX_TEST_DEF GUIX_TEST_XYZ
guix environment --bootstrap --ad-hoc guile-bootstrap --pure	\
     --preserve='^GUIX_TEST_A' --preserve='^GUIX_TEST_D'	\
     -- "$SHELL" -c set > "$tmpdir/a"
grep '^PATH=' "$tmpdir/a"
grep '^GUIX_TEST_ABC=' "$tmpdir/a"
grep '^GUIX_TEST_DEF=' "$tmpdir/a"
if grep '^GUIX_TEST_XYZ=' "$tmpdir/a"; then false; else true; fi

# Make sure the exit value is preserved.
if guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
        -- guile -c '(exit 42)'
then
    false
else
    test $? = 42
fi

# Make sure 'GUIX_ENVIRONMENT' points to the profile.
guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
     -- "$SHELL" -c 'test -f "$GUIX_ENVIRONMENT/bin/guile"'

# Make sure 'GUIX_ENVIRONMENT' points to the profile when building from a
# manifest.
echo "(use-modules (guix profiles) (gnu packages bootstrap))

(packages->manifest (list %bootstrap-guile))
" > $tmpdir/manifest.scm
guix environment --bootstrap --manifest=$tmpdir/manifest.scm --pure \
     -- "$SHELL" -c 'test -f "$GUIX_ENVIRONMENT/bin/guile"'

# Make sure '-r' works as expected.
rm -f "$gcroot"
expected="`guix environment --bootstrap --ad-hoc guile-bootstrap \
             -- "$SHELL" -c 'echo $GUIX_ENVIRONMENT'`"
guix environment --bootstrap -r "$gcroot" --ad-hoc guile-bootstrap \
     -- guile -c 1
test `readlink "$gcroot"` = "$expected"

# Make sure '-r' is idempotent.
guix environment --bootstrap -r "$gcroot" --ad-hoc guile-bootstrap \
     -- guile -c 1
test `readlink "$gcroot"` = "$expected"
rm "$gcroot"

# Same with an absolute file name.
guix environment --bootstrap -r "$PWD/$gcroot" --ad-hoc guile-bootstrap \
     -- guile -c 1
test `readlink "$gcroot"` = "$expected"

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

# Make sure we can build the environment of 'guix'.  There may be collisions
# in its profile (e.g., for 'gzip'), but we have to accept them.
guix environment guix --bootstrap -n

# Try program transformation options.
mkdir "$tmpdir/emacs-36.8"
drv="`guix environment --ad-hoc emacs -n 2>&1 | grep 'emacs.*\.drv'`"
transformed_drv="`guix environment --ad-hoc emacs --with-source="$tmpdir/emacs-36.8" -n 2>&1 | grep 'emacs.*\.drv'`"
test -n "$drv"
test "$drv" != "$transformed_drv"
case "$transformed_drv" in
    *-emacs-36.8.drv) true;;
    *)                false;;
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.
    guix environment --bootstrap --no-substitutes --search-paths --pure \
         -e '(@ (guix tests) gnu-make-for-tests)' > "$tmpdir/a"

    # Make sure bootstrap binaries are in the profile.
    profile=`grep "^export PATH" "$tmpdir/a" | sed -r 's|^.*="(.*)/bin"|\1|'`

    # Make sure the bootstrap binaries are all listed where they belong.
    grep -E "^export PATH=\"$profile/bin\""         "$tmpdir/a"
    grep -E "^export CPATH=\"$profile/include\""    "$tmpdir/a"
    grep -E "^export LIBRARY_PATH=\"$profile/lib\"" "$tmpdir/a"
    for dep in bootstrap-binaries-0 gcc-bootstrap-0 glibc-bootstrap-0
    do
	guix gc --references "$profile" | grep "$dep"
    done

    # 'make-boot0' itself must not be listed.
    if guix gc --references "$profile" | grep make-boot0
    then false; else true; fi

    # Make sure that the shell spawned with '--exec' sees the same environment
    # as returned by '--search-paths'.
    guix environment --bootstrap --no-substitutes --pure \
         -e '(@ (guix tests) gnu-make-for-tests)' \
         -- /bin/sh -c 'echo $PATH $CPATH $LIBRARY_PATH' > "$tmpdir/b"
    ( . "$tmpdir/a" ; echo $PATH $CPATH $LIBRARY_PATH ) > "$tmpdir/c"
    cmp "$tmpdir/b" "$tmpdir/c"

    rm "$tmpdir"/*

    # The following test assumes 'make-boot0' has a "debug" output.
    make_boot0_debug="`guix build -e '(@ (guix tests) gnu-make-for-tests)' | grep -e -debug`"
    test "x$make_boot0_debug" != "x"

    # Make sure the "debug" output is not listed.
    if guix gc --references "$profile" | grep "$make_boot0_debug"
    then false; else true; fi

    # Compute the build environment for the initial GNU Make, but add in the
    # bootstrap Guile as an ad-hoc addition.
    guix environment --bootstrap --no-substitutes --search-paths --pure	\
         -e '(@ (guix tests) gnu-make-for-tests)'		\
         --ad-hoc guile-bootstrap > "$tmpdir/a"
    profile=`grep "^export PATH" "$tmpdir/a" | sed -r 's|^.*="(.*)/bin"|\1|'`

    # Make sure the bootstrap binaries are all listed where they belong.
    grep -E "^export PATH=\"$profile/bin\""         "$tmpdir/a"
    grep -E "^export CPATH=\"$profile/include\""    "$tmpdir/a"
    grep -E "^export LIBRARY_PATH=\"$profile/lib\"" "$tmpdir/a"
    for dep in bootstrap-binaries-0 gcc-bootstrap-0 glibc-bootstrap-0 \
				    guile-bootstrap
    do
	guix gc --references "$profile" | grep "$dep"
    done

    # Make sure a package list with plain package objects and package+output
    # tuples can be used with -e.
    expr_list_test_code="
(list (@ (guix tests) gnu-make-for-tests)
      (list (@ (gnu packages bootstrap) %bootstrap-guile) \"out\"))"

    guix environment --bootstrap --ad-hoc --no-substitutes --search-paths \
         --pure -e "$expr_list_test_code" > "$tmpdir/a"
    profile=`grep "^export PATH" "$tmpdir/a" | sed -r 's|^.*="(.*)/bin"|\1|'`

    for dep in make-test-boot0 guile-bootstrap
    do
	guix gc --references "$profile" | grep "$dep"
    done
fi
Commit	Line	Data
cad25264	1	# GNU Guix --- Functional package management for GNU
e6e599fa	2	# Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
cad25264 LC	3	#
	4	# This file is part of GNU Guix.
	5	#
	6	# GNU Guix is free software; you can redistribute it and/or modify it
	7	# under the terms of the GNU General Public License as published by
	8	# the Free Software Foundation; either version 3 of the License, or (at
	9	# your option) any later version.
	10	#
	11	# GNU Guix is distributed in the hope that it will be useful, but
	12	# WITHOUT ANY WARRANTY; without even the implied warranty of
	13	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	# GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License
	17	# along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	18
	19	#
	20	# Test 'guix environment'.
	21	#
	22
	23	set -e
	24
	25	guix environment --version
	26
	27	tmpdir="t-guix-environment-$$"
f943c317 LC	28	gcroot="t-guix-environment-gc-root-$$"
f943c317 LC	29	trap 'rm -r "$tmpdir"; rm -f "$gcroot"' EXIT
cad25264 LC	30
	31	mkdir "$tmpdir"
	32
b485f756 LC	33	# 'guix environment' launches /bin/sh if 'SHELL' is unset, so export 'SHELL'
	34	# since we know it's valid (build environments lack /bin/sh.)
	35	export SHELL
	36
cad25264	37	# Check the environment variables for the bootstrap Guile.
779aa003 DT	38	guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
	39	--search-paths > "$tmpdir/a"
	40	guix environment --bootstrap --ad-hoc guile-bootstrap:out --pure \
	41	--search-paths > "$tmpdir/b"
cad25264 LC	42
cad25264 LC	43	# $PATH must appear in the search paths, and nothing else.
779aa003	44	grep -E '^export PATH=.*profile/bin' "$tmpdir/a"
cad25264 LC	45	test "`wc -l < "$tmpdir/a"`" = 1
cad25264 LC	46
779aa003 DT	47	# Guile must be on $PATH.
	48	test -x `sed -r 's/^export PATH="(.*)"/\1/' "$tmpdir/a"`/guile
	49
417c39f1 LC	50	cmp "$tmpdir/a" "$tmpdir/b"
417c39f1 LC	51
dca58219	52	# Check '--preserve'.
e6e599fa LC	53	GUIX_TEST_ABC=1
	54	GUIX_TEST_DEF=2
	55	GUIX_TEST_XYZ=3
	56	export GUIX_TEST_ABC GUIX_TEST_DEF GUIX_TEST_XYZ
	57	guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
dca58219	58	--preserve='^GUIX_TEST_A' --preserve='^GUIX_TEST_D' \
e6e599fa LC	59	-- "$SHELL" -c set > "$tmpdir/a"
	60	grep '^PATH=' "$tmpdir/a"
	61	grep '^GUIX_TEST_ABC=' "$tmpdir/a"
	62	grep '^GUIX_TEST_DEF=' "$tmpdir/a"
	63	if grep '^GUIX_TEST_XYZ=' "$tmpdir/a"; then false; else true; fi
	64
4931dfcd	65	# Make sure the exit value is preserved.
779aa003 DT	66	if guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
779aa003 DT	67	-- guile -c '(exit 42)'
1de2fe95 DT	68	then
	69	false
	70	else
	71	test $? = 42
	72	fi
	73
20185522 LC	74	# Make sure 'GUIX_ENVIRONMENT' points to the profile.
	75	guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
	76	-- "$SHELL" -c 'test -f "$GUIX_ENVIRONMENT/bin/guile"'
	77
267379f8 DT	78	# Make sure 'GUIX_ENVIRONMENT' points to the profile when building from a
	79	# manifest.
	80	echo "(use-modules (guix profiles) (gnu packages bootstrap))
	81
	82	(packages->manifest (list %bootstrap-guile))
	83	" > $tmpdir/manifest.scm
	84	guix environment --bootstrap --manifest=$tmpdir/manifest.scm --pure \
	85	-- "$SHELL" -c 'test -f "$GUIX_ENVIRONMENT/bin/guile"'
	86
f943c317 LC	87	# Make sure '-r' works as expected.
	88	rm -f "$gcroot"
	89	expected="`guix environment --bootstrap --ad-hoc guile-bootstrap \
	90	-- "$SHELL" -c 'echo $GUIX_ENVIRONMENT'`"
	91	guix environment --bootstrap -r "$gcroot" --ad-hoc guile-bootstrap \
	92	-- guile -c 1
	93	test `readlink "$gcroot"` = "$expected"
	94
	95	# Make sure '-r' is idempotent.
	96	guix environment --bootstrap -r "$gcroot" --ad-hoc guile-bootstrap \
	97	-- guile -c 1
	98	test `readlink "$gcroot"` = "$expected"
840f38ba	99	rm "$gcroot"
f943c317	100
840f38ba LC	101	# Same with an absolute file name.
	102	guix environment --bootstrap -r "$PWD/$gcroot" --ad-hoc guile-bootstrap \
	103	-- guile -c 1
	104	test `readlink "$gcroot"` = "$expected"
f943c317	105
40d71e44 LC	106	case "`uname -m`" in
	107	x86_64)
	108	# On x86_64, we should be able to create a 32-bit environment.
	109	guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
	110	-- guile -c '(exit (string-prefix? "x86_64" %host-type))'
	111	guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
	112	-s i686-linux \
	113	-- guile -c '(exit (string-prefix? "i686" %host-type))'
	114	;;
	115	*)
	116	echo "nothing to do" >&2
	117	;;
	118	esac
	119
afd06f60 LC	120	# Make sure we can build the environment of 'guix'. There may be collisions
	121	# in its profile (e.g., for 'gzip'), but we have to accept them.
	122	guix environment guix --bootstrap -n
	123
a93c1606 LC	124	# Try program transformation options.
	125	mkdir "$tmpdir/emacs-36.8"
	126	drv="`guix environment --ad-hoc emacs -n 2>&1 \| grep 'emacs.*\.drv'`"
	127	transformed_drv="`guix environment --ad-hoc emacs --with-source="$tmpdir/emacs-36.8" -n 2>&1 \| grep 'emacs.*\.drv'`"
	128	test -n "$drv"
	129	test "$drv" != "$transformed_drv"
	130	case "$transformed_drv" in
	131	*-emacs-36.8.drv) true;;
	132	*) false;;
	133	esac
	134	rmdir "$tmpdir/emacs-36.8"
	135
d108f597 LC	136	# Transformation options without '--ad-hoc'.
	137	drv="`guix environment -n emacs-geiser 2>&1 \| grep '\.drv$'`"
	138	transformed_drv="`guix environment -n emacs-geiser \
	139	--with-input=emacs-minimal=vim 2>&1 \| grep '\.drv$'`"
	140	test "$drv" != "$transformed_drv"
	141	case "$drv" in
	142	-emacs-minimal.drv*) true;;
	143	*) false;;
	144	esac
	145	case "$transformed_drv" in
	146	-emacs-minimal.drv*) false;;
	147	*) true;;
	148	esac
	149	case "$transformed_drv" in
	150	-vim.drv*) true;;
	151	*) false;;
	152	esac
	153
	154
cad25264 LC	155	if guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' 2> /dev/null
	156	then
	157	# Compute the build environment for the initial GNU Make.
779aa003	158	guix environment --bootstrap --no-substitutes --search-paths --pure \
03d76577	159	-e '(@ (guix tests) gnu-make-for-tests)' > "$tmpdir/a"
779aa003 DT	160
	161	# Make sure bootstrap binaries are in the profile.
	162	profile=`grep "^export PATH" "$tmpdir/a" \| sed -r 's\|^.="(.)/bin"\|\1\|'`
cad25264 LC	163
cad25264 LC	164	# Make sure the bootstrap binaries are all listed where they belong.
779aa003 DT	165	grep -E "^export PATH=\"$profile/bin\"" "$tmpdir/a"
	166	grep -E "^export CPATH=\"$profile/include\"" "$tmpdir/a"
	167	grep -E "^export LIBRARY_PATH=\"$profile/lib\"" "$tmpdir/a"
	168	for dep in bootstrap-binaries-0 gcc-bootstrap-0 glibc-bootstrap-0
	169	do
	170	guix gc --references "$profile" \| grep "$dep"
	171	done
cad25264 LC	172
cad25264 LC	173	# 'make-boot0' itself must not be listed.
779aa003 DT	174	if guix gc --references "$profile" \| grep make-boot0
779aa003 DT	175	then false; else true; fi
cad25264 LC	176
	177	# Make sure that the shell spawned with '--exec' sees the same environment
	178	# as returned by '--search-paths'.
779aa003	179	guix environment --bootstrap --no-substitutes --pure \
03d76577	180	-e '(@ (guix tests) gnu-make-for-tests)' \
1de2fe95	181	-- /bin/sh -c 'echo $PATH $CPATH $LIBRARY_PATH' > "$tmpdir/b"
cad25264 LC	182	( . "$tmpdir/a" ; echo $PATH $CPATH $LIBRARY_PATH ) > "$tmpdir/c"
cad25264 LC	183	cmp "$tmpdir/b" "$tmpdir/c"
6b6298ae LC	184
	185	rm "$tmpdir"/*
	186
6b6298ae	187	# The following test assumes 'make-boot0' has a "debug" output.
03d76577	188	make_boot0_debug="`guix build -e '(@ (guix tests) gnu-make-for-tests)' \| grep -e -debug`"
6b6298ae LC	189	test "x$make_boot0_debug" != "x"
	190
	191	# Make sure the "debug" output is not listed.
779aa003 DT	192	if guix gc --references "$profile" \| grep "$make_boot0_debug"
779aa003 DT	193	then false; else true; fi
cc90fbbf DT	194
	195	# Compute the build environment for the initial GNU Make, but add in the
	196	# bootstrap Guile as an ad-hoc addition.
779aa003	197	guix environment --bootstrap --no-substitutes --search-paths --pure \
03d76577	198	-e '(@ (guix tests) gnu-make-for-tests)' \
779aa003 DT	199	--ad-hoc guile-bootstrap > "$tmpdir/a"
779aa003 DT	200	profile=`grep "^export PATH" "$tmpdir/a" \| sed -r 's\|^.="(.)/bin"\|\1\|'`
cc90fbbf DT	201
cc90fbbf DT	202	# Make sure the bootstrap binaries are all listed where they belong.
779aa003 DT	203	grep -E "^export PATH=\"$profile/bin\"" "$tmpdir/a"
	204	grep -E "^export CPATH=\"$profile/include\"" "$tmpdir/a"
	205	grep -E "^export LIBRARY_PATH=\"$profile/lib\"" "$tmpdir/a"
	206	for dep in bootstrap-binaries-0 gcc-bootstrap-0 glibc-bootstrap-0 \
	207	guile-bootstrap
	208	do
	209	guix gc --references "$profile" \| grep "$dep"
	210	done
	211
	212	# Make sure a package list with plain package objects and package+output
	213	# tuples can be used with -e.
c9c282ce	214	expr_list_test_code="
03d76577	215	(list (@ (guix tests) gnu-make-for-tests)
779aa003	216	(list (@ (gnu packages bootstrap) %bootstrap-guile) \"out\"))"
c9c282ce	217
779aa003 DT	218	guix environment --bootstrap --ad-hoc --no-substitutes --search-paths \
	219	--pure -e "$expr_list_test_code" > "$tmpdir/a"
	220	profile=`grep "^export PATH" "$tmpdir/a" \| sed -r 's\|^.="(.)/bin"\|\1\|'`
c9c282ce	221
03d76577	222	for dep in make-test-boot0 guile-bootstrap
779aa003 DT	223	do
	224	guix gc --references "$profile" \| grep "$dep"
	225	done
cad25264	226	fi