01/08: tests: Create a copy-on-write image instead of copying eagerly.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 130079ae27b47228516dc2934bcdecca5dbedf12
Author: Ludovic Courtès <address@hidden>
Date:   Wed Nov 30 00:05:22 2016 +0100

    tests: Create a copy-on-write image instead of copying eagerly.
    
    * gnu/tests/install.scm (qemu-command/writable-image): Invoke 'qemu-img
    -o backing_file' instead of calling 'copy-file'.
---
 gnu/tests/install.scm |   11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm
index ecf1ac1..4779b80 100644
--- a/gnu/tests/install.scm
+++ b/gnu/tests/install.scm
@@ -199,8 +199,15 @@ IMAGE, a disk image.  The QEMU VM is has access to 
MEMORY-SIZE MiB of RAM."
   (mlet %store-monad ((system (current-system)))
     (return #~(let ((image #$image))
                 ;; First we need a writable copy of the image.
-                (format #t "copying image '~a'...~%" image)
-                (copy-file image "disk.img")
+                (format #t "creating writable image from '~a'...~%" image)
+                (unless (zero? (system* #+(file-append qemu-minimal
+                                                       "/bin/qemu-img")
+                                        "create" "-f" "qcow2"
+                                        "-o"
+                                        (string-append "backing_file=" image)
+                                        "disk.img"))
+                  (error "failed to create writable QEMU image" image))
+
                 (chmod "disk.img" #o644)
                 `(,(string-append #$qemu-minimal "/bin/"
                                   #$(qemu-command system))