summary refs log tree commit diff
path: root/gnu/tests/install.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-10-18 09:58:18 +0200
committerLudovic Courtès <ludo@gnu.org>2021-10-18 10:00:50 +0200
commit3fbf38aca2af5613755bad62a21edd60e251852a (patch)
treec74934da423a5954f15d826e37567e396c0d1a0f /gnu/tests/install.scm
parent3fa778b5618b5d84fbe4534457dad4952a309e2a (diff)
downloadguix-3fbf38aca2af5613755bad62a21edd60e251852a.tar.gz
tests: Pass '-F qcow2' to 'qemu-img create'.
Fixes a regression introduced in
0b5e128750ed40d4348f2eb49d328b81dba9181a, whereby 'qemu-img create ...'
as used here would fail with:

  qemu-img: disk.img: Backing file specified without backing format

thereby breaking tests from (gnu tests install).

* gnu/tests/install.scm (qemu-command/writable-image): Pass "-F qcow2".
Diffstat (limited to 'gnu/tests/install.scm')
-rw-r--r--gnu/tests/install.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm
index 98de4c8359..38785ae0bd 100644
--- a/gnu/tests/install.scm
+++ b/gnu/tests/install.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2017, 2019, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
 ;;; Copyright © 2020 Danny Milosavljevic <dannym@scratchpost.org>
@@ -355,7 +355,7 @@ IMAGE, a disk image.  The QEMU VM has access to MEMORY-SIZE MiB of RAM."
                 (format #t "creating writable image from '~a'...~%" image)
                 (unless (zero? (system* #+(file-append qemu-minimal
                                                        "/bin/qemu-img")
-                                        "create" "-f" "qcow2"
+                                        "create" "-f" "qcow2" "-F" "qcow2"
                                         "-o"
                                         (string-append "backing_file=" image)
                                         "disk.img"))