From 70303d073a4f9e9d9fdfa309c6fc350e80b63a60 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Mon, 23 Nov 2020 03:52:07 +0100 Subject: gnu: lsof: Respect #:tests?. * gnu/packages/lsof.scm (lsof)[arguments]: The 'check phase takes and respects a TESTS? keyword. --- gnu/packages/lsof.scm | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/gnu/packages/lsof.scm b/gnu/packages/lsof.scm index ad3dfbd2df..0421ca7e9d 100644 --- a/gnu/packages/lsof.scm +++ b/gnu/packages/lsof.scm @@ -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"))) -- cgit v1.2.3