From 4e39604111e53a1aab74fdfe9360ec71c2fd1a85 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 8 Sep 2017 00:04:38 +0200
Subject: 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".
---
 gnu/tests/install.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'gnu/tests/install.scm')

diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm
index 93c8a89cd8..49743860e5 100644
--- a/gnu/tests/install.scm
+++ b/gnu/tests/install.scm
@@ -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:"
-- 
cgit v1.2.3