|
(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")
|
|
;(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)
|