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

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