03/06: gnu: nmap: Honor tests? flag.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit e4fe344a5c64063f8201a637973aa366a3ded200
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun May 29 16:29:36 2022 +0300

    gnu: nmap: Honor tests? flag.
    
    * gnu/packages/admin.scm (nmap)[arguments]: In custom 'check phase honor
    the #:tests? flag.
---
 gnu/packages/admin.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index af75dee697..4e655551bd 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -3191,10 +3191,12 @@ rules is done with the @code{auditctl} utility.")
                    (,(python-path ndiff)))))))
          ;; These are the tests that do not require network access.
          (replace 'check
-           (lambda _ (invoke "make"
-                             "check-nse"
-                             "check-ndiff"
-                             "check-dns"))))
+           (lambda* (#:key tests? #:allow-other-keys)
+             (when tests?
+               (invoke "make"
+                       "check-nse"
+                       "check-ndiff"
+                       "check-dns")))))
        ;; Nmap can't cope with out-of-source building.
        #:out-of-source? #f))
     (home-page "https://nmap.org/";)