summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/tests/docker.scm11
1 files changed, 8 insertions, 3 deletions
diff --git a/gnu/tests/docker.scm b/gnu/tests/docker.scm
index ea6c9a33fee..c70c3ddb9e3 100644
--- a/gnu/tests/docker.scm
+++ b/gnu/tests/docker.scm
@@ -27,8 +27,9 @@
27 #:use-module (gnu services networking) 27 #:use-module (gnu services networking)
28 #:use-module (gnu services docker) 28 #:use-module (gnu services docker)
29 #:use-module (gnu services desktop) 29 #:use-module (gnu services desktop)
30 #:use-module (gnu packages docker) 30 #:use-module ((gnu packages base) #:select (glibc))
31 #:use-module (gnu packages guile) 31 #:use-module (gnu packages guile)
32 #:use-module (gnu packages docker)
32 #:use-module (guix gexp) 33 #:use-module (guix gexp)
33 #:use-module (guix grafts) 34 #:use-module (guix grafts)
34 #:use-module (guix monads) 35 #:use-module (guix monads)
@@ -206,7 +207,7 @@ inside %DOCKER-OS."
206 ;; load' must be able to store the whole image into memory, hence the 207 ;; load' must be able to store the whole image into memory, hence the
207 ;; huge memory requirements. We should avoid the volatile-root setup 208 ;; huge memory requirements. We should avoid the volatile-root setup
208 ;; instead. 209 ;; instead.
209 (memory-size 3500) 210 (memory-size 4000)
210 (port-forwardings '()))) 211 (port-forwardings '())))
211 212
212 (define test 213 (define test
@@ -298,5 +299,9 @@ inside %DOCKER-OS."
298 (description "Run a system image as produced by @command{guix system 299 (description "Run a system image as produced by @command{guix system
299docker-image} inside Docker.") 300docker-image} inside Docker.")
300 (value (with-monad %store-monad 301 (value (with-monad %store-monad
301 (>>= (system-docker-image (simple-operating-system)) 302 (>>= (system-docker-image (operating-system
303 (inherit (simple-operating-system))
304 ;; Use locales for a single libc to
305 ;; reduce space requirements.
306 (locale-libcs (list glibc))))
302 run-docker-system-test))))) 307 run-docker-system-test)))))