me
/
guix
Archived
1
0
Fork 0
Code

gnu: opendht: Enable tests. 

* gnu/packages/networking.scm (opendht)
[phases]{disable-problematic-tests}: New phase.
{check}: New phase override.
[propagated-inputs]: Re-indent comments.
master
Maxim Cournoyer 2022-07-19 15:13:47 -04:00
parent 9dcde6147e
commit 6d2eb9ebf9
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnu/packages/networking.scm
View File

@ -3491,7 +3491,6 @@ and targeted primarily for asynchronous processing of HTTP-requests.")
#:modules '(((guix build python-build-system) #:prefix python:) #:modules '(((guix build python-build-system) #:prefix python:)
(guix build gnu-build-system) (guix build gnu-build-system)
(guix build utils)) (guix build utils))
#:tests? #f ;tests require networking
#:configure-flags #:configure-flags
#~(list "--enable-tests" #~(list "--enable-tests"
"--enable-proxy-server" "--enable-proxy-server"
@ -3500,6 +3499,15 @@ and targeted primarily for asynchronous processing of HTTP-requests.")
"--enable-proxy-client") "--enable-proxy-client")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'disable-problematic-tests
(lambda _
;; The dhtrunnertester test suite includes 'testListen', which
;; is sensitive to the performance/load of the machine it runs
;; on, introducing nondeterminism (see:
;; https://github.com/savoirfairelinux/opendht/issues/626).
(substitute* "tests/Makefile.am"
(("tests/dhtrunnertester.(h|cpp)$" all)
(string-append "# " all)))))
(add-after 'unpack 'fix-python-installation-prefix (add-after 'unpack 'fix-python-installation-prefix
;; Specify the installation prefix for the compiled Python module ;; Specify the installation prefix for the compiled Python module
;; that would otherwise attempt to installs itself to Python's own ;; that would otherwise attempt to installs itself to Python's own
@ -3515,6 +3523,10 @@ and targeted primarily for asynchronous processing of HTTP-requests.")
(("extra_link_args=\\[(.*)\\]" _ args) (("extra_link_args=\\[(.*)\\]" _ args)
(string-append "extra_link_args=[" args (string-append "extra_link_args=[" args
", '-Wl,-rpath=" #$output "/lib']"))))) ", '-Wl,-rpath=" #$output "/lib']")))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "tests/opendht_unit_tests"))))
(add-after 'install 'move-and-wrap-tools (add-after 'install 'move-and-wrap-tools
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((tools (assoc-ref outputs "tools")) (let* ((tools (assoc-ref outputs "tools"))
@ -3531,15 +3543,15 @@ and targeted primarily for asynchronous processing of HTTP-requests.")
`("GUIX_PYTHONPATH" prefix (,site-packages))))))))) `("GUIX_PYTHONPATH" prefix (,site-packages)))))))))
(inputs (list bash-minimal fmt readline)) (inputs (list bash-minimal fmt readline))
(propagated-inputs (propagated-inputs
(list msgpack ;included in several installed headers (list msgpack ;included in several installed headers
restinio ;included in opendht/http.h restinio ;included in opendht/http.h
;; The following are listed in the 'Requires.private' field of ;; The following are listed in the 'Requires.private' field of
;; opendht.pc: ;; opendht.pc:
argon2 argon2
gnutls gnutls
jsoncpp jsoncpp
nettle nettle
openssl)) ;required for the DHT proxy openssl)) ;required for the DHT proxy
(native-inputs (native-inputs
(list autoconf (list autoconf
automake automake