1 # GNU Guix --- Functional package management for GNU
2 # Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
4 # This file is part of GNU Guix.
6 # GNU Guix is free software; you can redistribute it and/or modify it
7 # under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or (at
9 # your option) any later version.
11 # GNU Guix is distributed in the hope that it will be useful, but
12 # WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
20 # Test the daemon and its interaction with 'guix substitute'.
27 tmpfile
="t-guix-system-$$"
28 errorfile
="t-guix-system-error-$$"
29 trap 'rm -f "$tmpfile" "$errorfile"' EXIT
31 # Reporting of syntax errors.
34 ;; This is line 1, and the next one is line 2.
36 ;; The 'T' is at column 3.
39 if guix system vm
"$tmpfile" 2> "$errorfile"
41 # This must not succeed.
44 grep "$tmpfile:2:3:.*missing.* initializers" "$errorfile"
48 # Reporting of unbound variables.
50 cat > "$tmpfile" <<EOF
51 (use-modules (gnu)) ; 1
52 (use-service-modules networking) ; 2
55 (host-name "antelope") ; 5
56 (timezone "Europe/Paris") ; 6
57 (locale "en_US.UTF-8") ; 7
59 (bootloader (GRUB-config (device "/dev/sdX"))) ; 9
60 (file-systems (cons (file-system
68 if guix system build
"$tmpfile" -n 2> "$errorfile"
71 grep "$tmpfile:9:.*[Uu]nbound variable.*GRUB-config" "$errorfile"
75 (host-name "antelope")
76 (timezone "Europe/Paris")
77 (locale "en_US.UTF-8")
79 (bootloader (grub-configuration (device "/dev/sdX")))
80 (file-systems (cons (file-system
82 (title (string->symbol "label"))
88 # Reporting of duplicate service identifiers.
90 cat > "$tmpfile" <<EOF
92 (use-service-modules networking)
96 (services (cons* (dhcp-client-service)
97 (dhcp-client-service) ;twice!
101 if guix system vm
"$tmpfile" 2> "$errorfile"
103 # This must not succeed.
106 grep "service 'networking'.*more than once" "$errorfile"
109 # Reporting unmet dmd requirements.
111 cat > "$tmpfile" <<EOF
112 (use-modules (gnu) (gnu services dmd))
113 (use-service-modules networking)
115 (define buggy-service-type
120 (provision '(buggy!))
121 (requirement '(does-not-exist))
126 (services (cons (service buggy-service-type #t)
130 if guix system build
"$tmpfile" 2> "$errorfile"
134 grep "service 'buggy!'.*'does-not-exist'.*undefined" "$errorfile"
137 # Reporting inconsistent user accounts.
141 cat > "$tmpfile" <<EOF
143 (use-service-modules networking)
146 (host-name "antelope")
147 (timezone "Europe/Paris")
148 (locale "en_US.UTF-8")
150 (bootloader (grub-configuration (device "/dev/sdX")))
151 (file-systems (cons (file-system
157 (users (list (user-account
159 (home-directory "/home/dave")
161 (supplementary-groups '("$2"))))))
165 make_user_config
"users" "wheel"
166 guix system build
"$tmpfile" -n # succeeds
168 guix system build
"$tmpfile" -d # succeeds
169 guix system build
"$tmpfile" -d |
grep '\.drv$'
171 guix system vm
"$tmpfile" -d # succeeds
172 guix system vm
"$tmpfile" -d |
grep '\.drv$'
174 make_user_config
"group-that-does-not-exist" "users"
175 if guix system build
"$tmpfile" -n 2> "$errorfile"
177 else grep "primary group.*group-that-does-not-exist.*undeclared" "$errorfile"; fi
179 make_user_config
"users" "group-that-does-not-exist"
180 if guix system build
"$tmpfile" -n 2> "$errorfile"
182 else grep "supplementary group.*group-that-does-not-exist.*undeclared" "$errorfile"; fi