01/02: tests: docker-system: Increase VM memory.

[guix-commits]

civodul pushed a commit to branch version-1.2.0
in repository guix.

commit 3c69e81d85e337ccceb2248c497bd1732a63f7ec
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Nov 6 16:12:10 2020 +0100

    tests: docker-system: Increase VM memory.
    
    The test was failing with ENOSPC.
    
    * gnu/tests/docker.scm (run-docker-system-test)[vm]: Increase 'memory-size'.
    (%test-docker-system): Change 'locale-libcs' for the OS passed to
    'system-docker-image'.
---
 gnu/tests/docker.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/gnu/tests/docker.scm b/gnu/tests/docker.scm
index ea6c9a3..c70c3dd 100644
--- a/gnu/tests/docker.scm
+++ b/gnu/tests/docker.scm
@@ -27,8 +27,9 @@
   #:use-module (gnu services networking)
   #:use-module (gnu services docker)
   #:use-module (gnu services desktop)
-  #:use-module (gnu packages docker)
+  #:use-module ((gnu packages base) #:select (glibc))
   #:use-module (gnu packages guile)
+  #:use-module (gnu packages docker)
   #:use-module (guix gexp)
   #:use-module (guix grafts)
   #:use-module (guix monads)
@@ -206,7 +207,7 @@ inside %DOCKER-OS."
      ;; load' must be able to store the whole image into memory, hence the
      ;; huge memory requirements.  We should avoid the volatile-root setup
      ;; instead.
-     (memory-size 3500)
+     (memory-size 4000)
      (port-forwardings '())))
 
   (define test
@@ -298,5 +299,9 @@ inside %DOCKER-OS."
    (description "Run a system image as produced by @command{guix system
 docker-image} inside Docker.")
    (value (with-monad %store-monad
-            (>>= (system-docker-image (simple-operating-system))
+            (>>= (system-docker-image (operating-system
+                                        (inherit (simple-operating-system))
+                                        ;; Use locales for a single libc to
+                                        ;; reduce space requirements.
+                                        (locale-libcs (list glibc))))
                  run-docker-system-test)))))