From 8b001c765e158fa2d0d71eede1fdc749d965e39b Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Mon, 2 Mar 2020 08:01:35 +0000 Subject: shepherd: modularize the services --- shepherd/init.d/test-upgrade.scm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 shepherd/init.d/test-upgrade.scm (limited to 'shepherd/init.d/test-upgrade.scm') 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 + #: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) -- cgit v1.2.3