1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
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"
)
|