|
|
@@ -4,13 +4,14 @@ |
|
|
|
#: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-gn" |
|
|
|
"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"))) |
|
|
|
;(when (zero? (system* |
|
|
|
'("guix" "build" "-L" "/home/shepherd/guix-bioinformatics" |
|
|
|
"--no-grafts" "bnw" "gitea" "go-ipfs" "edirect-gn" |
|
|
|
"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) |