tests: Adjust for removal of 'device' field in <bootloader-configuration>.

This is a followup to commit 5f7467f046.

* tests/guix-system.sh: For <bootloader-configuration> records, use
'target' rather than 'device'.
This commit is contained in:
Ludovic Courtès 2019-01-21 22:17:17 +01:00
parent f9e8a12379
commit f61e6e5238
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -109,7 +109,7 @@ cat > "$tmpfile" <<EOF
(timezone "Europe/Paris") ; 6 (timezone "Europe/Paris") ; 6
(locale "en_US.UTF-8") ; 7 (locale "en_US.UTF-8") ; 7
(bootloader (GRUB-config (device "/dev/sdX"))) ; 9 (bootloader (GRUB-config (target "/dev/sdX"))) ; 9
(file-systems (cons (file-system (file-systems (cons (file-system
(device (file-system-label "root")) (device (file-system-label "root"))
(mount-point "/") (mount-point "/")
@ -137,7 +137,7 @@ OS_BASE='
(bootloader (bootloader-configuration (bootloader (bootloader-configuration
(bootloader grub-bootloader) (bootloader grub-bootloader)
(device "/dev/sdX"))) (target "/dev/sdX")))
(file-systems (cons (file-system (file-systems (cons (file-system
(device (file-system-label "root")) (device (file-system-label "root"))
(mount-point "/") (mount-point "/")
@ -209,7 +209,7 @@ make_user_config ()
(bootloader (bootloader-configuration (bootloader (bootloader-configuration
(bootloader grub-bootloader) (bootloader grub-bootloader)
(device "/dev/sdX"))) (target "/dev/sdX")))
(file-systems (cons (file-system (file-systems (cons (file-system
(device (file-system-label "root")) (device (file-system-label "root"))
(mount-point "/") (mount-point "/")