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

# GNU Guix --- Functional package management for GNU
# Copyright © 2015, 2016, 2017 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"

# 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 '-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


# Same as above, but with deprecated -E flag.
if guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
        -E "guile -c '(exit 42)'"
then
    false
else
    test $? = 42
fi

# 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

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 '(@@ (gnu packages commencement) gnu-make-boot0)' > "$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 '(@@ (gnu packages commencement) gnu-make-boot0)' \
         -- /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"/*

    # Compute the build environment for the initial GNU Findutils.
    guix environment --bootstrap --no-substitutes --search-paths --pure \
         -e '(@@ (gnu packages commencement) findutils-boot0)' > "$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 \
				    make-boot0
    do
	guix gc --references "$profile" | grep "$dep"
    done

    # The following test assumes 'make-boot0' has a "debug" output.
    make_boot0_debug="`guix build -e '(@@ (gnu packages commencement) gnu-make-boot0)' | 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 '(@@ (gnu packages commencement) gnu-make-boot0)'		\
         --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 (@@ (gnu packages commencement) gnu-make-boot0)
      (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-boot0 guile-bootstrap
    do
	guix gc --references "$profile" | grep "$dep"
    done
fi
Commit	Line	Data
cad25264	1	# GNU Guix --- Functional package management for GNU
840f38ba	2	# Copyright © 2015, 2016, 2017 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
4931dfcd	52	# Make sure the exit value is preserved.
779aa003 DT	53	if guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
779aa003 DT	54	-- guile -c '(exit 42)'
1de2fe95 DT	55	then
	56	false
	57	else
	58	test $? = 42
	59	fi
	60
20185522 LC	61	# Make sure 'GUIX_ENVIRONMENT' points to the profile.
	62	guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
	63	-- "$SHELL" -c 'test -f "$GUIX_ENVIRONMENT/bin/guile"'
	64
f943c317 LC	65	# Make sure '-r' works as expected.
	66	rm -f "$gcroot"
	67	expected="`guix environment --bootstrap --ad-hoc guile-bootstrap \
	68	-- "$SHELL" -c 'echo $GUIX_ENVIRONMENT'`"
	69	guix environment --bootstrap -r "$gcroot" --ad-hoc guile-bootstrap \
	70	-- guile -c 1
	71	test `readlink "$gcroot"` = "$expected"
	72
	73	# Make sure '-r' is idempotent.
	74	guix environment --bootstrap -r "$gcroot" --ad-hoc guile-bootstrap \
	75	-- guile -c 1
	76	test `readlink "$gcroot"` = "$expected"
840f38ba	77	rm "$gcroot"
f943c317	78
840f38ba LC	79	# Same with an absolute file name.
	80	guix environment --bootstrap -r "$PWD/$gcroot" --ad-hoc guile-bootstrap \
	81	-- guile -c 1
	82	test `readlink "$gcroot"` = "$expected"
f943c317	83
40d71e44 LC	84	case "`uname -m`" in
	85	x86_64)
	86	# On x86_64, we should be able to create a 32-bit environment.
	87	guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
	88	-- guile -c '(exit (string-prefix? "x86_64" %host-type))'
	89	guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
	90	-s i686-linux \
	91	-- guile -c '(exit (string-prefix? "i686" %host-type))'
	92	;;
	93	*)
	94	echo "nothing to do" >&2
	95	;;
	96	esac
	97
	98
1de2fe95	99	# Same as above, but with deprecated -E flag.
779aa003 DT	100	if guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
779aa003 DT	101	-E "guile -c '(exit 42)'"
4931dfcd LC	102	then
	103	false
	104	else
	105	test $? = 42
	106	fi
	107
afd06f60 LC	108	# Make sure we can build the environment of 'guix'. There may be collisions
	109	# in its profile (e.g., for 'gzip'), but we have to accept them.
	110	guix environment guix --bootstrap -n
	111
cad25264 LC	112	if guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' 2> /dev/null
	113	then
	114	# Compute the build environment for the initial GNU Make.
779aa003 DT	115	guix environment --bootstrap --no-substitutes --search-paths --pure \
	116	-e '(@@ (gnu packages commencement) gnu-make-boot0)' > "$tmpdir/a"
	117
	118	# Make sure bootstrap binaries are in the profile.
	119	profile=`grep "^export PATH" "$tmpdir/a" \| sed -r 's\|^.="(.)/bin"\|\1\|'`
cad25264 LC	120
cad25264 LC	121	# Make sure the bootstrap binaries are all listed where they belong.
779aa003 DT	122	grep -E "^export PATH=\"$profile/bin\"" "$tmpdir/a"
	123	grep -E "^export CPATH=\"$profile/include\"" "$tmpdir/a"
	124	grep -E "^export LIBRARY_PATH=\"$profile/lib\"" "$tmpdir/a"
	125	for dep in bootstrap-binaries-0 gcc-bootstrap-0 glibc-bootstrap-0
	126	do
	127	guix gc --references "$profile" \| grep "$dep"
	128	done
cad25264 LC	129
cad25264 LC	130	# 'make-boot0' itself must not be listed.
779aa003 DT	131	if guix gc --references "$profile" \| grep make-boot0
779aa003 DT	132	then false; else true; fi
cad25264 LC	133
	134	# Make sure that the shell spawned with '--exec' sees the same environment
	135	# as returned by '--search-paths'.
779aa003 DT	136	guix environment --bootstrap --no-substitutes --pure \
779aa003 DT	137	-e '(@@ (gnu packages commencement) gnu-make-boot0)' \
1de2fe95	138	-- /bin/sh -c 'echo $PATH $CPATH $LIBRARY_PATH' > "$tmpdir/b"
cad25264 LC	139	( . "$tmpdir/a" ; echo $PATH $CPATH $LIBRARY_PATH ) > "$tmpdir/c"
cad25264 LC	140	cmp "$tmpdir/b" "$tmpdir/c"
6b6298ae LC	141
	142	rm "$tmpdir"/*
	143
	144	# Compute the build environment for the initial GNU Findutils.
779aa003 DT	145	guix environment --bootstrap --no-substitutes --search-paths --pure \
	146	-e '(@@ (gnu packages commencement) findutils-boot0)' > "$tmpdir/a"
	147	profile=`grep "^export PATH" "$tmpdir/a" \| sed -r 's\|^.="(.)/bin"\|\1\|'`
6b6298ae LC	148
6b6298ae LC	149	# Make sure the bootstrap binaries are all listed where they belong.
779aa003 DT	150	grep -E "^export PATH=\"$profile/bin\"" "$tmpdir/a"
	151	grep -E "^export CPATH=\"$profile/include\"" "$tmpdir/a"
	152	grep -E "^export LIBRARY_PATH=\"$profile/lib\"" "$tmpdir/a"
	153	for dep in bootstrap-binaries-0 gcc-bootstrap-0 glibc-bootstrap-0 \
	154	make-boot0
	155	do
	156	guix gc --references "$profile" \| grep "$dep"
	157	done
6b6298ae LC	158
	159	# The following test assumes 'make-boot0' has a "debug" output.
	160	make_boot0_debug="`guix build -e '(@@ (gnu packages commencement) gnu-make-boot0)' \| grep -e -debug`"
	161	test "x$make_boot0_debug" != "x"
	162
	163	# Make sure the "debug" output is not listed.
779aa003 DT	164	if guix gc --references "$profile" \| grep "$make_boot0_debug"
779aa003 DT	165	then false; else true; fi
cc90fbbf DT	166
	167	# Compute the build environment for the initial GNU Make, but add in the
	168	# bootstrap Guile as an ad-hoc addition.
779aa003 DT	169	guix environment --bootstrap --no-substitutes --search-paths --pure \
	170	-e '(@@ (gnu packages commencement) gnu-make-boot0)' \
	171	--ad-hoc guile-bootstrap > "$tmpdir/a"
	172	profile=`grep "^export PATH" "$tmpdir/a" \| sed -r 's\|^.="(.)/bin"\|\1\|'`
cc90fbbf DT	173
cc90fbbf DT	174	# Make sure the bootstrap binaries are all listed where they belong.
779aa003 DT	175	grep -E "^export PATH=\"$profile/bin\"" "$tmpdir/a"
	176	grep -E "^export CPATH=\"$profile/include\"" "$tmpdir/a"
	177	grep -E "^export LIBRARY_PATH=\"$profile/lib\"" "$tmpdir/a"
	178	for dep in bootstrap-binaries-0 gcc-bootstrap-0 glibc-bootstrap-0 \
	179	guile-bootstrap
	180	do
	181	guix gc --references "$profile" \| grep "$dep"
	182	done
	183
	184	# Make sure a package list with plain package objects and package+output
	185	# tuples can be used with -e.
c9c282ce DT	186	expr_list_test_code="
c9c282ce DT	187	(list (@@ (gnu packages commencement) gnu-make-boot0)
779aa003	188	(list (@ (gnu packages bootstrap) %bootstrap-guile) \"out\"))"
c9c282ce	189
779aa003 DT	190	guix environment --bootstrap --ad-hoc --no-substitutes --search-paths \
	191	--pure -e "$expr_list_test_code" > "$tmpdir/a"
	192	profile=`grep "^export PATH" "$tmpdir/a" \| sed -r 's\|^.="(.)/bin"\|\1\|'`
c9c282ce	193
779aa003 DT	194	for dep in make-boot0 guile-bootstrap
	195	do
	196	guix gc --references "$profile" \| grep "$dep"
	197	done
cad25264	198	fi