summary refs log tree commit diff
path: root/gnu/tests
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-03-10 09:37:11 +0100
committerMathieu Othacehe <othacehe@gnu.org>2021-03-10 09:37:48 +0100
commit207ef1a2b4f6ffd4781d1f5aab8e5984bc515f4c (patch)
tree9ac67385484221a25ee1d89ee7fe97f72de238a4 /gnu/tests
parent6c883d0f1deacff4fc227a4f925414a3733efc6e (diff)
downloadguix-207ef1a2b4f6ffd4781d1f5aab8e5984bc515f4c.tar.gz
tests: cuirass: Remove cuirass simple test.
This is a follow-up of 6c883d0f1deacff4fc227a4f925414a3733efc6e.

* gnu/tests/cuirass.scm (simple-cuirass-service, %cuirass-simple-test): Remove
them.
Diffstat (limited to 'gnu/tests')
-rw-r--r--gnu/tests/cuirass.scm33
1 files changed, 1 insertions, 32 deletions
diff --git a/gnu/tests/cuirass.scm b/gnu/tests/cuirass.scm
index 04a7a71dcf..ea5db34515 100644
--- a/gnu/tests/cuirass.scm
+++ b/gnu/tests/cuirass.scm
@@ -35,8 +35,7 @@
   #:use-module (guix gexp)
   #:use-module (guix store)
   #:export (%cuirass-test
-            %cuirass-remote-test
-            %cuirass-simple-test))
+            %cuirass-remote-test))
 
 (define %derivation-file
   (scheme-file
@@ -298,33 +297,3 @@
      (name "cuirass-remote")
      (description "Connect to a Cuirass server with remote build.")
      (value (run-cuirass-test name os)))))
-
-(define simple-cuirass-service
-  (service cuirass-service-type
-           (cuirass-configuration
-            (specifications
-             (simple-cuirass-configuration->specs
-              (simple-cuirass-configuration
-               (build 'all)
-               (channels
-                (list (channel
-                       (name 'guix)
-                       (url "file:///tmp/cuirass-main/")))))))
-            (host "0.0.0.0")
-            (use-substitutes? #t))))
-
-(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-service)
-                (operating-system-user-services %simple-os))))))
-    (system-test
-     (name "cuirass-simple")
-     (description "Connect to a simple Cuirass server.")
-     (value
-      (run-cuirass-test name os)))))