me/guix
Archived
1
0
Fork 0
Code 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

7
gnu/packages/lsof.scm
View file

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