09/11: gnu: lsof: Respect #:tests?.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 70303d073a4f9e9d9fdfa309c6fc350e80b63a60
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Mon Nov 23 03:52:07 2020 +0100

    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 ad3dfbd..0421ca7 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")))