ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-23 02:59:17 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define marionette
"-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:"