nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: duplicity: Fix tests. 

* gnu/packages/backup.scm (duplicity)[native-inputs]: Add PAR2CMDLINE.
[arguments]: Move /bin/sh substitution to 'patch-source' phase and add one file.
This commit is contained in:
Marius Bakke 2017-02-15 21:40:08 +01:00
parent a10b9810c6
commit 8ef8de799f
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/backup.scm
View File

@ -67,6 +67,7 @@
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("util-linux" ,util-linux) ;setsid command, for the tests `(("util-linux" ,util-linux) ;setsid command, for the tests
("par2cmdline" ,par2cmdline)
("python-pexpect" ,python2-pexpect) ("python-pexpect" ,python2-pexpect)
("mock" ,python2-mock))) ("mock" ,python2-mock)))
(propagated-inputs (propagated-inputs
@ -83,16 +84,18 @@
#:test-target "test" #:test-target "test"
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before (add-before 'build 'patch-source
'build 'patch-source ; embed gpg store name (lambda* (#:key inputs #:allow-other-keys)
(lambda* (#:key inputs #:allow-other-keys) ;; embed gpg store name
(substitute* "duplicity/gpginterface.py" (substitute* "duplicity/gpginterface.py"
(("self.call = 'gpg'") (("self.call = 'gpg'")
(string-append "self.call = '" (assoc-ref inputs "gnupg") "/bin/gpg'"))))) (string-append "self.call = '" (assoc-ref inputs "gnupg") "/bin/gpg'")))
(substitute* '("testing/functional/__init__.py"
"testing/overrides/bin/lftp")
(("/bin/sh") (which "sh")))
#t))
(add-before 'check 'check-setup (add-before 'check 'check-setup
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "testing/functional/__init__.py"
(("/bin/sh") (which "sh")))
(setenv "HOME" (getcwd)) ;gpg needs to write to $HOME (setenv "HOME" (getcwd)) ;gpg needs to write to $HOME
(setenv "TZDIR" ;some timestamp checks need TZDIR (setenv "TZDIR" ;some timestamp checks need TZDIR
(string-append (assoc-ref inputs "tzdata") (string-append (assoc-ref inputs "tzdata")