aboutsummaryrefslogtreecommitdiff
path: root/gnu/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-09-08 00:04:38 +0200
committerLudovic Courtès <ludo@gnu.org>2017-09-08 00:11:21 +0200
commit4e39604111e53a1aab74fdfe9360ec71c2fd1a85 (patch)
treeae6a55108a479e611f3ce43621b459212aa4f789 /gnu/tests
parentcd1ad27e6cdf90230d07efc18a8fcfe45494aad0 (diff)
downloadguix-4e39604111e53a1aab74fdfe9360ec71c2fd1a85.tar
guix-4e39604111e53a1aab74fdfe9360ec71c2fd1a85.tar.gz
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".
Diffstat (limited to 'gnu/tests')
-rw-r--r--gnu/tests/install.scm8
1 files changed, 4 insertions, 4 deletions
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 @@ 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:"