04/07: gnu: flatpak: Honor the #:tests? flag.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 66b2fd0d045ecd94ec3b13904f2a09f81d35e6cb
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Mar 22 10:39:26 2023 +0200

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

diff --git a/gnu/packages/package-management.scm 
b/gnu/packages/package-management.scm
index abd60da798..562d228cf4 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -1959,10 +1959,12 @@ cp -r /tmp/locale/*/en_US.*")))
           ;; Many tests fail for unknown reasons, so we just run a few basic
           ;; tests.
           (replace 'check
-            (lambda _
-              (setenv "HOME" "/tmp")
-              (invoke "make" "check"
-                      "TESTS=tests/test-basic.sh tests/test-config.sh 
testcommon"))))))
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                (setenv "HOME" "/tmp")
+                (invoke "make" "check"
+                        "TESTS=tests/test-basic.sh tests/test-config.sh
+                        testcommon")))))))
     (native-inputs
      (list bison
            dbus ; for dbus-daemon