~ruther/guix-local: tests: Fix incorrect use of 'file-append'.

4e39604111e53a1aab74fdfe9360ec71c2fd1a85 — Ludovic Courtès 8 years ago cd1ad27

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

Fixes a regression introduced in fbc7b1f12561159e0ec3f6459d336f95cf2ce503.

* 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".

patch browse .tar.gz

1 files changed, 4 insertions(+), 4 deletions(-)

M gnu/tests/install.scm

M gnu/tests/install.scm => gnu/tests/install.scm +4 -4

@@ 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:"