aboutsummaryrefslogtreecommitdiff
path: root/gnu/tests
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/tests')
-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)))))