aboutsummaryrefslogtreecommitdiff
path: root/gnu/tests/cuirass.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-01-22 09:44:45 +0100
committerMathieu Othacehe <othacehe@gnu.org>2021-02-19 20:10:09 +0100
commite9bf51108272977d61a34e1af753f5064f0d57c7 (patch)
treed7134468689b93802403b578271672db064eba2e /gnu/tests/cuirass.scm
parent25ad6e1d8ee268bbf57a48481467a1b13a4fbbb2 (diff)
downloadguix-e9bf51108272977d61a34e1af753f5064f0d57c7.tar.gz
guix-e9bf51108272977d61a34e1af753f5064f0d57c7.zip
services: cuirass: Add "simple-cuirass-services".
* gnu/services/cuirass.scm (<build-manifest>, <simple-cuirass-configuration>): New records. (build-manifest, build-manifest?, simple-cuirass-configuration, simple-cuirass-configuration?, simple-cuirass-services): New procedures. (%default-cuirass-config): New variable. * gnu/tests/cuirass.scm (%cuirass-simple-test): New variable. * doc/guix.texi (Continuous Integration): Document it.
Diffstat (limited to 'gnu/tests/cuirass.scm')
-rw-r--r--gnu/tests/cuirass.scm28
1 files changed, 27 insertions, 1 deletions
diff --git a/gnu/tests/cuirass.scm b/gnu/tests/cuirass.scm
index 760aef8245..22eab3c456 100644
--- a/gnu/tests/cuirass.scm
+++ b/gnu/tests/cuirass.scm
@@ -35,7 +35,8 @@
#:use-module (guix gexp)
#:use-module (guix store)
#:export (%cuirass-test
- %cuirass-remote-test))
+ %cuirass-remote-test
+ %cuirass-simple-test))
(define %derivation-file
(scheme-file
@@ -284,3 +285,28 @@
(name "cuirass-remote")
(description "Connect to a Cuirass server with remote build.")
(value (run-cuirass-test name os)))))
+
+(define %cuirass-simple-test
+ (let ((os (operating-system
+ (inherit %simple-os)
+ (services
+ (append
+ (list cow-service
+ (service dhcp-client-service-type)
+ git-service)
+ (simple-cuirass-services
+ (simple-cuirass-configuration
+ (build 'all)
+ (channels (list (channel
+ (name 'guix)
+ (url "file:///tmp/cuirass-main/")))))
+ (cuirass-configuration
+ (inherit %default-cuirass-config)
+ (host "0.0.0.0")
+ (use-substitutes? #t)))
+ (operating-system-user-services %simple-os))))))
+ (system-test
+ (name "cuirass-simple")
+ (description "Connect to a simple Cuirass server.")
+ (value
+ (run-cuirass-test name os)))))