ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 06:06:53 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: rdup: Fix build, disable encryption.

Browse source 
* gnu/packages/backup.scm (nettle)[inputs]: Remove nettle.
[arguments]: Add ‘disable-failing-tests’ phase.
This commit is contained in:
Tobias Geerinckx-Rice 2019-11-01 23:36:06 +01:00
parent 658ef2ecdd
commit d939b2955d
No known key found for this signature in database
GPG key ID: D889B0F018C5493C
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/backup.scm
View file

@ -308,11 +308,14 @@ (define-public rdup
;; For tests. ;; For tests.
("dejagnu" ,dejagnu))) ("dejagnu" ,dejagnu)))
(inputs (inputs
;; XXX Compiling with nettle (encryption) support requires patching out
;; -Werror from GNUmakefile.in. Then, rdup-tr-{en,de}crypt tests fail:
;; free(): invalid pointer
;; ** rdup-tr: SIGPIPE received, exiting
`(("glib" ,glib) `(("glib" ,glib)
("pcre" ,pcre) ("pcre" ,pcre)
("libarchive" ,libarchive) ("libarchive" ,libarchive)
("mcrypt" ,mcrypt) ("mcrypt" ,mcrypt)))
("nettle" ,nettle)))
(arguments (arguments
`(#:parallel-build? #f ;race conditions `(#:parallel-build? #f ;race conditions
#:phases #:phases
@ -328,6 +331,13 @@ (define-public rdup
;; Avoid frivolous dependency on ‘which’ with a shell builtin. ;; Avoid frivolous dependency on ‘which’ with a shell builtin.
(("which") "command -v")) (("which") "command -v"))
#t)) #t))
(add-before 'check 'disable-encryption-tests
(lambda _
(for-each delete-file
(list "testsuite/rdup/rdup.rdup-tr-crypt.exp"
"testsuite/rdup/rdup.rdup-tr-decrypt.exp"
"testsuite/rdup/rdup.rdup-tr-encrypt.exp"))
#t))
(add-before 'check 'pre-check (add-before 'check 'pre-check
(lambda _ (lambda _
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))