futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests: Fix incorrect use of 'file-append'.

Browse Source 
Fixes a regression introduced in fbc7b1f125.

* gnu/tests/install.scm (run-install)[install]: Don't use 'file-append'
with a string as its first argument; use a gexp with 'string-append' instead.
Use a gexp instead of a list for "-cdrom IMG".
This commit is contained in:
Ludovic Courtès 2017-09-08 00:04:38 +02:00
parent cd1ad27e6c
commit 4e39604111
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/tests/install.scm
View File

@ -238,11 +238,11 @@ packages defined in installation-os."
"-m" "800"
#$@(cond
((string=? "ext4" installation-disk-image-file-system-type)
`("-drive"
,(file-append "file=" image
",if=virtio,readonly")))
#~("-drive"
,(string-append "file=" #$image
",if=virtio,readonly")))
((string=? "iso9660" installation-disk-image-file-system-type)
`("-cdrom" ,image))
#~("-cdrom" #$image))
(else
(error
"unsupported installation-disk-image-file-system-type:"