# GNU Guix --- Functional package management for GNU # Copyright © 2021 Andrew Tropin # Copyright © 2021 Oleg Pykhalov # Copyright © 2022 Ludovic Courtès # # 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 . # # 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 } NIX_STORE_DIR="$(guile -c '(use-modules (guix config))(display %storedir)')" localstatedir="$(guile -c '(use-modules (guix config))(display %localstatedir)')" 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 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"))) (simple-service 'home-bash-service-extension-test home-bash-service-type (home-bash-extension (environment-variables '(("PS1" . "$GUIX_ENVIRONMENT λ "))) (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" if container_supported then # Run the home in a container. guix home container home.scm -- true ! guix home container home.scm -- 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' 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' 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" 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" ) # 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" )