1 # GNU Guix --- Functional package management for GNU
2 # Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
3 # Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
4 # Copyright © 2018 Chris Marusich <cmmarusich@gmail.com>
6 # This file is part of GNU Guix.
8 # GNU Guix is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or (at
11 # your option) any later version.
13 # GNU Guix is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
22 # Test 'guix system', mostly error reporting.
29 tmpfile
="t-guix-system-$$"
30 errorfile
="t-guix-system-error-$$"
32 # Note: This directory is chosen outside $builddir so that relative file name
33 # canonicalization doesn't mess up with 'current-source-directory', used by
34 # 'local-file' ('load' forces 'relative' for
35 # %FILE-PORT-NAME-CANONICALIZATION.)
36 tmpdir
="${TMPDIR:-/tmp}/t-guix-system-$$"
39 trap 'rm -f "$tmpfile" "$errorfile" "$tmpdir"/*; rmdir "$tmpdir"' EXIT
41 # Reporting of syntax errors.
44 ;; This is line 1, and the next one is line 2.
46 ;; The 'T' is at column 3.
49 if guix system vm
"$tmpfile" 2> "$errorfile"
51 # This must not succeed.
54 grep "$tmpfile:2:3:.*missing.* initializers" "$errorfile"
59 ;; This is line 1, and the next one is line 2.
61 ;; This is line 3, and there is no closing paren!
64 if guix system vm
"$tmpfile" 2> "$errorfile"
66 # This must not succeed.
69 grep "$tmpfile:4:1: missing closing paren" "$errorfile"
73 # Reporting of module not found errors.
75 cat > "$tmpfile" <<EOF
78 (use-service-modules openssh)
81 if guix system build
"$tmpfile" -n 2> "$errorfile"
84 grep "$tmpfile:3:2: .*module .*openssh.*not found" "$errorfile"
85 grep "Try.*use-service-modules ssh" "$errorfile"
88 cat > "$tmpfile" <<EOF
91 (use-package-modules qemu)
94 if guix system build
"$tmpfile" -n 2> "$errorfile"
97 grep "$tmpfile:3:2: .*module .*qemu.*not found" "$errorfile"
98 grep "Try.*use-package-modules virtualization" "$errorfile"
101 # Reporting of unbound variables.
103 cat > "$tmpfile" <<EOF
104 (use-modules (gnu)) ; 1
105 (use-service-modules networking) ; 2
107 (operating-system ; 4
108 (host-name "antelope") ; 5
109 (timezone "Europe/Paris") ; 6
110 (locale "en_US.UTF-8") ; 7
112 (bootloader (GRUB-config (target "/dev/sdX"))) ; 9
113 (file-systems (cons (file-system
114 (device (file-system-label "root"))
117 %base-file-systems)))
120 if guix system build
"$tmpfile" -n 2> "$errorfile"
123 if test "`guile -c '(display (effective-version))'`" = 3.0
125 # FIXME: With Guile 3.3.0 the error is reported on line 11.
126 # See <https://bugs.gnu.org/38388>.
127 grep "$tmpfile:[0-9]\+:[0-9]\+:.*GRUB-config.*[Uu]nbound variable" "$errorfile"
128 elif test "`guile -c '(display (effective-version))'`" = 2.2
130 # FIXME: With Guile 2.2.0 the error is reported on line 4.
131 # See <http://bugs.gnu.org/26107>.
132 grep "$tmpfile:[49]:[0-9]\+:.*GRUB-config.*[Uu]nbound variable" "$errorfile"
134 grep "$tmpfile:9:[0-9]\+:.*GRUB-config.*[Uu]nbound variable" "$errorfile"
138 cat > "$tmpfile" <<EOF
139 (use-modules (gnu)) ; 1
141 (operating-system ; 3
142 (file-systems (cons (file-system ; 4
143 (device (file-system-label "root"))
144 (mount-point "/") ; 6
145 (type "ext4")))) ; 7 (!!)
149 if guix system build
"$tmpfile" -n 2> "$errorfile"
152 # Here '%base-file-systems' appears as if it were a field specified of the
153 # enclosing 'operating-system' form due to parenthesis mismatch.
154 grep "$tmpfile:3:[0-9]\+:.*%base-file-system.*invalid field specifier" \
159 (host-name "antelope")
160 (timezone "Europe/Paris")
161 (locale "en_US.UTF-8")
163 (bootloader (bootloader-configuration
164 (bootloader grub-bootloader)
165 (target "/dev/sdX")))
166 (file-systems (cons (file-system
167 (device (file-system-label "root"))
173 # Reporting of duplicate service identifiers.
175 cat > "$tmpfile" <<EOF
177 (use-service-modules networking)
181 (services (cons* (service dhcp-client-service-type)
182 (service dhcp-client-service-type) ;twice!
186 if guix system vm
"$tmpfile" 2> "$errorfile"
188 # This must not succeed.
191 grep "service 'networking'.*more than once" "$errorfile"
194 # Reporting unmet shepherd requirements.
196 cat > "$tmpfile" <<EOF
197 (use-modules (gnu) (gnu services shepherd))
198 (use-service-modules networking)
200 (define buggy-service-type
201 (shepherd-service-type
205 (provision '(buggy!))
206 (requirement '(does-not-exist))
208 (description "Buggy.")))
212 (services (cons (service buggy-service-type #t)
216 if guix system build
"$tmpfile" 2> "$errorfile"
220 grep "service 'buggy!'.*'does-not-exist'.*not provided" "$errorfile"
223 # Reporting inconsistent user accounts.
227 cat > "$tmpfile" <<EOF
229 (use-service-modules networking)
232 (host-name "antelope")
233 (timezone "Europe/Paris")
234 (locale "en_US.UTF-8")
236 (bootloader (bootloader-configuration
237 (bootloader grub-bootloader)
238 (target "/dev/sdX")))
239 (file-systems (cons (file-system
240 (device (file-system-label "root"))
244 (users (list (user-account
246 (home-directory "/home/dave")
248 (supplementary-groups '("$2"))))))
252 make_user_config
"users" "wheel"
253 guix system build
"$tmpfile" -n # succeeds
255 guix system build
"$tmpfile" -d # succeeds
256 guix system build
"$tmpfile" -d |
grep '\.drv$'
258 guix system vm
"$tmpfile" -d # succeeds
259 guix system vm
"$tmpfile" -d |
grep '\.drv$'
261 # Make sure the behavior is deterministic (<https://bugs.gnu.org/32652>).
262 drv1
="`guix system vm "$tmpfile" -d`"
263 drv2
="`guix system vm "$tmpfile" -d`"
264 test "$drv1" = "$drv2"
265 drv1
="`guix system image -t iso9660 "$tmpfile" -d`"
266 drv2
="`guix system image -t iso9660 "$tmpfile" -d`"
267 test "$drv1" = "$drv2"
269 make_user_config
"group-that-does-not-exist" "users"
270 if guix system build
"$tmpfile" -n 2> "$errorfile"
272 else grep "primary group.*group-that-does-not-exist.*undeclared" "$errorfile"; fi
274 make_user_config
"users" "group-that-does-not-exist"
275 if guix system build
"$tmpfile" -n 2> "$errorfile"
277 else grep "supplementary group.*group-that-does-not-exist.*undeclared" "$errorfile"; fi
279 # Try 'local-file' and relative file name resolution.
281 cat > "$tmpdir/config.scm"<<EOF
283 (use-service-modules networking)
287 (services (cons (service tor-service-type
289 (config-file (local-file "my-torrc"))))
293 cat > "$tmpdir/my-torrc"<<EOF
294 # This is an example file.
297 # In both cases 'my-torrc' should be properly resolved.
298 guix system build
"$tmpdir/config.scm" -n
299 (cd "$tmpdir"; guix system build
"config.scm" -n)
301 # Check that we get a warning when passing 'local-file' a non-literal relative
303 cat > "$tmpdir/config.scm" <<EOF
306 (define (bad-local-file file)
309 (bad-local-file "whatever.scm")
311 ! guix system build
"$tmpdir/config.scm" -n
312 guix system build
"$tmpdir/config.scm" -n 2>&1 | \
313 grep "config\.scm:4:2: warning:.*whatever.*relative to current directory"
316 guix system search tor |
grep "^name: tor"
317 guix system search tor |
grep "^shepherdnames: tor"
318 guix system search anonym network |
grep "^name: tor"
319 guix system search .
> "$tmpdir/search"
320 test $
(wc -l < "$tmpdir/search") -gt 500
323 # Below, use -n (--dry-run) for the tests because if we actually tried to
324 # build these images, the commands would take hours to run in the worst case.
326 # Verify that the examples can be built.
327 for example
in gnu
/system
/examples
/*.tmpl
; do
328 if echo "$example" |
grep hurd
; then
329 target
="--target=i586-pc-gnu"
333 guix system
-n disk-image
$target "$example"
336 # Verify that the disk image types can be built.
337 guix system
-n vm gnu
/system
/examples
/vm-image.tmpl
338 guix system
-n vm-image gnu
/system
/examples
/vm-image.tmpl
339 # This invocation was taken care of in the loop above:
340 # guix system -n disk-image gnu/system/examples/bare-bones.tmpl
341 guix system
-n disk-image
-t iso9660 gnu
/system
/examples
/bare-bones.tmpl
342 guix system
-n docker-image gnu
/system
/examples
/docker-image.tmpl
344 # Verify that at least the raw image type is available.
345 guix system
--list-image-types |
grep "raw"