05/09: gnu: bear: Respect TESTS?.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 9c426e19cf1dc633a8e7d927b53299504fff9bf4
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Dec 19 00:31:34 2021 +0100

    gnu: bear: Respect TESTS?.
    
    * gnu/packages/build-tools.scm (bear)[arguments]: Accept and respect a
    TESTS? keyword in the 'check phase.
---
 gnu/packages/build-tools.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/build-tools.scm b/gnu/packages/build-tools.scm
index eb6c32d..18a07f0 100644
--- a/gnu/packages/build-tools.scm
+++ b/gnu/packages/build-tools.scm
@@ -123,10 +123,11 @@ makes a few sacrifices to acquire fast full and 
incremental build times.")
                   (add-before 'check 'set-build-environment
                     (lambda _
                       (setenv "CC" "gcc")))
-                  ;; TODO: Test Configuration is Incomplete
                   (replace 'check
-                    (lambda _
-                      (invoke "ctest"))))))
+                    ;; TODO: Test configuration is incomplete.
+                    (lambda* (#:key tests? #:allow-other-keys)
+                      (when tests?
+                        (invoke "ctest")))))))
     (inputs
      `(("c-ares" ,c-ares)
        ("fmt" ,fmt)