diff options
author | Efraim Flashner | 2020-03-02 08:01:35 +0000 |
---|---|---|
committer | Shepherd | 2020-03-02 08:01:35 +0000 |
commit | 8b001c765e158fa2d0d71eede1fdc749d965e39b (patch) | |
tree | 3c5be196946fe094c8106ca8ae040b0e8c0a9e75 /shepherd/init.d/test-upgrade.scm | |
parent | 1ce2c18ef1bc739c64b16e44a0cd2c404eade42e (diff) | |
download | gn-shepherd-services-8b001c765e158fa2d0d71eede1fdc749d965e39b.tar.gz |
shepherd: modularize the services
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) |