diff options
| -rw-r--r-- | shepherd/init.d/test-upgrade.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/shepherd/init.d/test-upgrade.scm b/shepherd/init.d/test-upgrade.scm index 80ae7dc..4315cb2 100644 --- a/shepherd/init.d/test-upgrade.scm +++ b/shepherd/init.d/test-upgrade.scm @@ -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) |