03/05: tests: Add #:memory-size parameter for the command to run the installed OS.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit b800b8da2123fb6877c706a06e531b7266aee507
Author: Ludovic Courtès <address@hidden>
Date:   Thu Oct 27 11:21:28 2016 +0200

    tests: Add #:memory-size parameter for the command to run the installed OS.
    
    * gnu/tests/install.scm (qemu-command/writable-image): Add #:memory-size
    parameter and honor it.
---
 gnu/tests/install.scm |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm
index 0f54935..b3908ec 100644
--- a/gnu/tests/install.scm
+++ b/gnu/tests/install.scm
@@ -191,9 +191,9 @@ the installed system."
 
     (gexp->derivation "installation" install)))
 
-(define (qemu-command/writable-image image)
+(define* (qemu-command/writable-image image #:key (memory-size 256))
   "Return as a monadic value the command to run QEMU on a writable copy of
-IMAGE, a disk image."
+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.
@@ -205,7 +205,7 @@ IMAGE, a disk image."
                   ,@(if (file-exists? "/dev/kvm")
                         '("-enable-kvm")
                         '())
-                  "-no-reboot" "-m" "256"
+                  "-no-reboot" "-m" #$(number->string memory-size)
                   "-drive" "file=disk.img,if=virtio")))))