me/guix
Archived
1
0
Fork 0
Code Activity

tests: cuirass: Remove cuirass simple test.

Browse source 
This is a follow-up of 6c883d0f1d.

* gnu/tests/cuirass.scm (simple-cuirass-service, %cuirass-simple-test): Remove
them.
This commit is contained in:
Mathieu Othacehe 2021-03-10 09:37:11 +01:00
parent 6c883d0f1d
commit 207ef1a2b4
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 1 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
gnu/tests/cuirass.scm
View file

@ -35,8 +35,7 @@
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix store) #:use-module (guix store)
#:export (%cuirass-test #:export (%cuirass-test
%cuirass-remote-test %cuirass-remote-test))
%cuirass-simple-test))
(define %derivation-file (define %derivation-file
(scheme-file (scheme-file
@ -298,33 +297,3 @@
(name "cuirass-remote") (name "cuirass-remote")
(description "Connect to a Cuirass server with remote build.") (description "Connect to a Cuirass server with remote build.")
(value (run-cuirass-test name os))))) (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)))))