From: Danny Milosavljevic <dannym@scratchpost.org>
To: 34039@debbugs.gnu.org
Subject: [bug#34039] [WIP] tests: Make docker system test more comprehensive.
Date: Thu, 10 Jan 2019 22:58:32 +0100 [thread overview]
Message-ID: <20190110215832.31676-1-dannym@scratchpost.org> (raw)
This system test fails with the error message "Read-only store".
* gnu/tests/docker.scm (run-docker-test): Add test
"pack guest OS as docker image, load it and run it".
(%test-docker)[description]: Modify.
---
gnu/tests/docker.scm | 35 +++++++++++++++++++++++++++++++++--
1 file changed, 33 insertions(+), 2 deletions(-)
diff --git a/gnu/tests/docker.scm b/gnu/tests/docker.scm
index 973a84c55..32fae82a8 100644
--- a/gnu/tests/docker.scm
+++ b/gnu/tests/docker.scm
@@ -1,4 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
;;;
;;; This file is part of GNU Guix.
@@ -27,6 +28,7 @@
#:use-module (gnu services docker)
#:use-module (gnu services desktop)
#:use-module (gnu packages docker)
+ #:use-module (gnu packages package-management)
#:use-module (guix gexp)
#:use-module (guix store)
#:export (%test-docker))
@@ -79,7 +81,7 @@
((pid) (number? pid))))))
marionette))
- (test-eq "fetch version"
+ (test-eq "fetch docker version"
0
(marionette-eval
`(begin
@@ -87,6 +89,35 @@
"version"))
marionette))
+ (test-eq "pack guest OS as docker image, load it and run it"
+ 0
+ (marionette-eval
+ `(begin
+ (define slurp
+ (lambda args
+ (let* ((port (apply open-pipe* OPEN_READ args))
+ (output (read-line port))
+ (status (close-pipe port)))
+ output)))
+ (let* ((tar-name (slurp ,(string-append #$guix "/bin/guix")
+ "system" "docker-image"
+ ,(string-append #$guix
+ ; MISSING "/share/guile/site/2.2/gnu/system/examples/docker-image.tmpl"
+ "/share/guile/site/2.2/gnu/system/examples/bare-bones.tmpl")))
+ (_ (write tar-name))
+ (image-id (slurp ,(string-append #$docker-cli
+ "/bin/docker")
+ "load" "-i" tar-name))
+ (_ (write image-id)))
+ (system* ,(string-append #$docker-cli "/bin/docker")
+ "run" "-e"
+ "GUIX_NEW_SYSTEM=/var/guix/profiles/system"
+ "--entrypoint"
+ "/var/guix/profiles/system/profile/bin/guile"
+ image-id
+ "/var/guix/profiles/system/boot")))
+ marionette))
+
(test-end)
(exit (= (test-runner-fail-count (test-runner-current)) 0)))))
@@ -95,5 +126,5 @@
(define %test-docker
(system-test
(name "docker")
- (description "Connect to the running Docker service.")
+ (description "Test the Docker service.")
(value (run-docker-test))))
reply other threads:[~2019-01-10 22:05 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20190110215832.31676-1-dannym@scratchpost.org \
--to=dannym@scratchpost.org \
--cc=34039@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).