blob: 6750ede460fd7114693efe109b81f0614efb1f78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(define test-upgrade
(make <service>
#:provides '(test-upgrade)
#:docstring "Build all the services to make sure they work on an upgrade"
#:start (make-forkexec-constructor
;; First attempt to build all the packages and only afterward attempt to build the containers.
;(when (zero? (system*
'("guix" "build"
"-L" "/home/shepherd/guix-bioinformatics"
"-L" "/home/shepherd/guix-past/modules"
"genenetwork1" "httpd22-with-mod-python"
;"bnw" octave-3.4.3 FTBFS
"gitea"
"go-ipfs"
"edirect"
"bxd-power-calculator-app"
"rn6-assembly-error-app"
"singlecellrshiny"
"virtuoso-ose"
"hrdp-project"
"bh20-seq-resource")
;(zero? (system* "guix" "system" "-L" "/home/shepherd/guix-bioinformatics"
; "container" "/home/shepherd/guix-bioinformatics/gn/services/bnw-container.scm"
; "--share=/home/shepherd/logs/bnw-server=/var/log" "--network")))
#:log-file "/home/shepherd/logs/test-upgrade.log")
#:one-shot? #t))
(register-services test-upgrade)
|
