mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 06:18:07 -05:00
094a2cfbe4
* guix/scripts/home.scm (show-help, %options): Add '--network', '--share', and '--expose'. (not-config?, user-shell, spawn-home-container): New procedures. (%default-system-profile): New variable. (perform-action): Add #:file-system-mappings, #:container-command, and #:network?; honor them. (process-action): Adjust accordingly. (guix-home)[parse-sub-command]: Add "container". [parse-args]: New procedure. Use it instead of 'parse-command-line'. * tests/guix-home.sh: Add tests. * doc/guix.texi (Declaring the Home Environment): Mention 'guix home container' as a way to test configuration. (Invoking guix home): Document it.
200 lines
6.4 KiB
Bash
200 lines
6.4 KiB
Bash
# GNU Guix --- Functional package management for GNU
|
|
# Copyright © 2021 Andrew Tropin <andrew@trop.in>
|
|
# Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com>
|
|
# Copyright © 2022 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
|
|
}
|
|
|
|
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 'home-bash-service-extension-test
|
|
home-bash-service-type
|
|
(home-bash-extension
|
|
(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"
|
|
|
|
# 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"
|
|
)
|