futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: lsof: Respect #:tests?.

Browse Source 
* gnu/packages/lsof.scm (lsof)[arguments]: The 'check phase takes and
respects a TESTS? keyword.
This commit is contained in:
Tobias Geerinckx-Rice 2020-11-23 03:52:07 +01:00
parent 518b21e058
commit 70303d073a
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/lsof.scm
View File

@ -79,15 +79,16 @@
(("(OPTTST=.*) LTnfs" _ prefix) prefix))
#t))
(replace 'check
(lambda _
(with-directory-excursion "tests"
;; Tests refuse to run on ‘unvalidated’ platforms.
(make-file-writable "TestDB")
(invoke "./Add2TestDB")
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(with-directory-excursion "tests"
;; Tests refuse to run on ‘unvalidated’ platforms.
(make-file-writable "TestDB")
(invoke "./Add2TestDB")
;; The ‘standard’ tests suggest running ‘optional’ ones as well.
(invoke "make" "standard" "optional")
#t)))
;; The ‘standard’ tests suggest running ‘optional’ ones as well.
(invoke "make" "standard" "optional")))
#t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))