gnu: obnam: Return #t from phases.

* gnu/packages/backup.scm (obnam)[arguments]: Substitute INVOKE for
SYSTEM*.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-24 21:57:38 +02:00
parent e252ec324d
commit f32a1803f0
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -683,17 +683,17 @@ (define-public obnam
(replace 'check (replace 'check
(lambda _ (lambda _
(substitute* "obnamlib/vfs_local_tests.py" (substitute* "obnamlib/vfs_local_tests.py"
;; Check for the nobody user instead of root ;; Check for the nobody user instead of root.
(("self.fs.get_username\\(0\\), 'root'") (("self.fs.get_username\\(0\\), 'root'")
"self.fs.get_username(65534), 'nobody'") "self.fs.get_username(65534), 'nobody'")
;; Disable tests checking for root group ;; Disable tests checking for root group.
(("self.fs.get_groupname\\(0\\)") "'root'")) (("self.fs.get_groupname\\(0\\)") "'root'"))
(substitute* "obnamlib/vfs_local.py" (substitute* "obnamlib/vfs_local.py"
;; Don't cover get_groupname function ;; Don't cover get_groupname function.
(("def get_groupname\\(self, gid\\):") (("def get_groupname\\(self, gid\\):")
"def get_groupname(self, gid): # pragma: no cover")) "def get_groupname(self, gid): # pragma: no cover"))
;; Can't run network tests ;; Can't run network tests.
(zero? (system* "./check" "--unit-tests"))))))) (invoke "./check" "--unit-tests"))))))
(inputs (inputs
`(("python2-cliapp" ,python2-cliapp) `(("python2-cliapp" ,python2-cliapp)
("python2-larch" ,python2-larch) ("python2-larch" ,python2-larch)