diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-09-08 00:04:38 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-09-08 00:11:21 +0200 |
| commit | 4e39604111e53a1aab74fdfe9360ec71c2fd1a85 (patch) | |
| tree | ae6a55108a479e611f3ce43621b459212aa4f789 /gnu | |
| parent | cd1ad27e6cdf90230d07efc18a8fcfe45494aad0 (diff) | |
| download | guix-4e39604111e53a1aab74fdfe9360ec71c2fd1a85.tar.gz guix-4e39604111e53a1aab74fdfe9360ec71c2fd1a85.zip | |
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')
| -rw-r--r-- | gnu/tests/install.scm | 8 |
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:" |