From 207ef1a2b4f6ffd4781d1f5aab8e5984bc515f4c Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Wed, 10 Mar 2021 09:37:11 +0100 Subject: [PATCH] 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. --- gnu/tests/cuirass.scm | 33 +-------------------------------- 1 file changed, 1 insertion(+), 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 @@ (define-module (gnu tests cuirass) #: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 @@ (define %cuirass-remote-test (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)))))