blob: 82662c3bbf83f6c97bcd4032a1dc71070c9ca8b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(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"
"--no-grafts" "bnw" "gitea" "go-ipfs" "edirect"
"bxd-power-calculator-app" "rn6-assembly-error-app"
"singlecellrshiny" "virtuoso-ose" "hrdf-project")
;(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)
|
