me
/
guix
Archived
1
0
Fork 0

tests: Add guix-home.sh.

* tests/guix-home.sh: New file.
* Makefile.am (SH_TESTS): Add this.
master
Oleg Pykhalov 2021-10-09 14:52:13 +03:00
parent 0f6a27c2c4
commit 5e68f7a7b3
No known key found for this signature in database
GPG Key ID: 167F8EA5001AFA9C
2 changed files with 107 additions and 0 deletions

View File

@ -547,6 +547,7 @@ SH_TESTS = \
tests/guix-package-aliases.sh \
tests/guix-package-net.sh \
tests/guix-system.sh \
tests/guix-home.sh \
tests/guix-archive.sh \
tests/guix-authenticate.sh \
tests/guix-environment.sh \

106
tests/guix-home.sh 100644
View File

@ -0,0 +1,106 @@
# GNU Guix --- Functional package management for GNU
# Copyright © 2021 Andrew Tropin <andrew@trop.in>
# Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com>
#
# 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
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
HOME="$test_directory"
export HOME
#
# Test 'guix home reconfigure'.
#
cat > "home.scm" <<'EOF'
(use-modules (guix gexp)
(gnu home)
(gnu home services)
(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")))))))
EOF
guix home reconfigure "${test_directory}/home.scm"
test -d "${HOME}/.guix-home"
grep -q "the content of ~/.config/test.conf" "${HOME}/.config/test.conf"
#
# 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")"
#
# Test 'guix home search'.
#
guix home search mcron | grep "^name: home-mcron"
guix home search job manager | grep "^name: home-mcron"
)