(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"
					"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)