diff options
Diffstat (limited to 'shepherd/init.d/test-upgrade.scm')
| -rw-r--r-- | shepherd/init.d/test-upgrade.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/shepherd/init.d/test-upgrade.scm b/shepherd/init.d/test-upgrade.scm new file mode 100644 index 0000000..0c17303 --- /dev/null +++ b/shepherd/init.d/test-upgrade.scm @@ -0,0 +1,15 @@ +(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-gn" + "bxd-power-calculator-app" "rn6-assembly-error-app")) + (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) |