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.

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)))))