# GNU Guix --- Functional package management for GNU
# Copyright © 2021-2023 Andrew Tropin <andrew@trop.in>
# Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com>
# Copyright © 2022, 2023 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 the 'guix home' using the external store, if any.
#
set -e
guix home --version
container_supported ()
{
if guile -c '((@ (guix scripts environment) assert-container-features))'
then
return 0
else
return 1
fi
}
localstatedir="$(guile -c '(use-modules (guix config))(display %localstatedir)')"
NIX_STORE_DIR="$(guile -c '(use-modules (guix config))(display %storedir)')"
GUIX_DAEMON_SOCKET="$localstatedir/guix/daemon-socket/socket"
export NIX_STORE_DIR GUIX_DAEMON_SOCKET
# Run tests only when a "real" daemon is available.
if ! guile -c '(use-modules (guix)) (exit (false-if-exception (open-connection)))'
then
exit 77
fi
STORE_PARENT="$(dirname "$NIX_STORE_DIR")"
export STORE_PARENT
if test "$STORE_PARENT" = "/"; then exit 77; fi
test_directory="$(mktemp -d)"
trap 'chmod -Rf +w "$test_directory"; rm -rf "$test_directory"' EXIT
(
cd "$test_directory" || exit 77
cat > "home.scm" <<'EOF'
(use-modules (guix gexp)
(gnu home)
(gnu home services)
(gnu home services shells)
(gnu packages bash)
(gnu services))
(home-environment
(services
(list
(simple-service 'test-config
home-files-service-type
(list `(".config/test.conf"
,(plain-file
"tmp-file.txt"
"the content of ~/.config/test.conf"))))
(service home-bash-service-type
(home-bash-configuration
(guix-defaults? #t)
(bashrc (list (local-file "dot-bashrc")))))
(simple-service 'add-environment-variable
home-environment-variables-service-type
`(("TODAY" . "26 messidor")
("SHELL" . ,(file-append bash "/bin/bash"))
("BUILDHOST_TIME" . ,#~(strftime "%c"
(localtime (current-time))))
("STRING_WITH_ESCAPES" . "chars: \" /\\")
("LITERAL" . ,(literal-string "${abc}"))))
(simple-service 'home-bash-service-extension-test
home-bash-service-type
(home-bash-extension
(environment-variables
'(("PS1" . "$GUIX_ENVIRONMENT λ ")))
(aliases
`(("run" . "guix shell")
("path" . ,(literal-string "echo $PATH"))))
(bashrc
(list
(plain-file
"bashrc-test-config.sh"
"# the content of bashrc-test-config.sh"))))))))
EOF
echo -n "# dot-bashrc test file for guix home" > "dot-bashrc"
# Check whether the graph commands work as expected.
guix home extension-graph "home.scm" | grep 'label = "home-activation"'
guix home extension-graph "home.scm" | grep 'label = "home-symlink-manager"'
guix home extension-graph "home.scm" | grep 'label = "home"'
# There are no Shepherd services so the one below must fail.
guix home shepherd-graph "home.scm" && false
if container_supported
then
# Run the home in a container. Always use bash inside container for
# reproducibility of the tests.
# TODO: Make container independent from external environment variables.
SHELL=bash
guix home container home.scm -- true
guix home container home.scm -- false && false
test "$(guix home container home.scm -- echo '$HOME')" = "$HOME"
guix home container home.scm -- cat '~/.config/test.conf' | \
grep "the content of"
guix home container home.scm -- test -h '~/.bashrc'
test "$(guix home container home.scm -- id -u)" = 1000
guix home container home.scm -- test -f '$HOME/sample/home.scm' && false
guix home container home.scm --expose="$PWD=$HOME/sample" -- \
test -f '$HOME/sample/home.scm'
guix home container home.scm --expose="$PWD=$HOME/sample" -- \
rm -v '$HOME/sample/home.scm' && false
else
echo "'guix home container' test SKIPPED" >&2
fi
HOME="$test_directory"
export HOME
#
# Test 'guix home reconfigure'.
#
echo "# This file will be overridden and backed up." > "$HOME/.bashrc"
mkdir "$HOME/.config"
echo "This file will be overridden too." > "$HOME/.config/test.conf"
echo "This file will stay around." > "$HOME/.config/random-file"
guix home reconfigure "${test_directory}/home.scm"
test -d "${HOME}/.guix-home"
test -h "${HOME}/.bash_profile"
test -h "${HOME}/.bashrc"
grep 'alias run="guix shell"' "$HOME/.bashrc"
grep "alias path='echo \$PATH'" "$HOME/.bashrc"
test "$(tail -n 2 "${HOME}/.bashrc")" == "\
# dot-bashrc test file for guix home
# the content of bashrc-test-config.sh"
grep -q "the content of ~/.config/test.conf" "${HOME}/.config/test.conf"
grep '^export PS1="\$GUIX_ENVIRONMENT λ "$' "${HOME}/.bash_profile"
( . "${HOME}/.guix-home/setup-environment"; test "$TODAY" = "26 messidor" )
( . "${HOME}/.guix-home/setup-environment"; test "$LITERAL" = '${abc}' )
( . "${HOME}/.guix-home/setup-environment";
test "$STRING_WITH_ESCAPES" = "chars: \" /\\")
( . "${HOME}/.guix-home/setup-environment";
echo "$SHELL" | grep "/gnu/store/.*/bin/bash" )
# This one should still be here.
grep "stay around" "$HOME/.config/random-file"
# Make sure preexisting files were backed up.
grep "overridden" "$HOME"/*guix-home*backup/.bashrc
grep "overridden" "$HOME"/*guix-home*backup/.config/test.conf
rm -r "$HOME"/*guix-home*backup
#
# Test 'guix home describe'.
#
configuration_file()
{
guix home describe \
| grep 'configuration file:' \
| cut -d : -f 2 \
| xargs echo
}
test "$(cat "$(configuration_file)")" == "$(cat home.scm)"
canonical_file_name()
{
guix home describe \
| grep 'canonical file name:' \
| cut -d : -f 2 \
| xargs echo
}
test "$(canonical_file_name)" == "$(readlink "${HOME}/.guix-home")"
#
# Configure a new generation.
#
# Change the bashrc snippet content and comment out one service.
sed -i "home.scm" -e's/the content of/the NEW content of/g'
sed -i "home.scm" -e"s/(simple-service 'test-config/#;(simple-service 'test-config/g"
guix home reconfigure "${test_directory}/home.scm"
test "$(tail -n 2 "${HOME}/.bashrc")" == "\
# dot-bashrc test file for guix home
# the NEW content of bashrc-test-config.sh"
# This file must have been removed and not backed up.
test ! -e "$HOME/.config/test.conf"
test ! -e "$HOME"/*guix-home*backup/.config/test.conf
test "$(cat "$(configuration_file)")" == "$(cat home.scm)"
test "$(canonical_file_name)" == "$(readlink "${HOME}/.guix-home")"
test $(guix home list-generations | grep "^Generation" | wc -l) -eq 2
#
# Test 'guix home search'.
#
guix home search mcron | grep "^name: home-mcron"
guix home search scheduling daemon | grep "^name: home-mcron"
)
