7d9fdfb19d
Fixes <https://issues.guix.gnu.org/63048>. Reported by Ekaitz Zarraga <ekaitz@elenq.tech>. * gnu/home/services.scm (with-shell-quotation-bindings): New procedure. (environment-variable-shell-definitions): Use it instead of inline copy. * gnu/home/services/shells.scm (bash-serialize-aliases): Use it. Add clause for 'literal-string?'. * tests/guix-home.sh: Add 'aliases' to 'home-bash-extension' and test it.
229 lines
7.9 KiB
Bash
229 lines
7.9 KiB
Bash
# 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 job manager | grep "^name: home-mcron"
|
|
)
|