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

diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm
index 93c8a89..4974386 100644 (file)
--- a/gnu/tests/install.scm
+++ b/gnu/tests/install.scm
@@ -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:"