24/38: gnu: at-spi2-core: Respect #:tests?.

[guix-commits]

mothacehe pushed a commit to branch core-updates
in repository guix.

commit 2d9c06c61dd8adaabeddd15b0f3649f832a10178
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Oct 1 16:21:26 2021 +0200

    gnu: at-spi2-core: Respect #:tests?.
    
    * gnu/packages/gtk.scm (at-spi2-core)[arguments]<#:phases>{check}:
      Don't run tests if the value of #:tests? if false.
    
    Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
 gnu/packages/gtk.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index adb4d84..d829218 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -768,14 +768,15 @@ scaled, composited, modified, saved, or rendered.")
                         (string-append out "/share/gtk-doc")))
                      #t))))
          (add-after 'install 'check
-           (lambda _
+           (lambda* (#:key tests? #:allow-other-keys)
              (setenv "HOME" (getenv "TMPDIR")) ; xfconfd requires a writable 
HOME
              ;; Run test-suite under a dbus session.
              (setenv "XDG_DATA_DIRS" ; for finding org.xfce.Xfconf.service
                      (string-append %output "/share"))
              ;; Don't fail on missing  '/etc/machine-id'.
              (setenv "DBUS_FATAL_WARNINGS" "0") ;
-             (invoke "dbus-launch" "ninja" "test")))
+             (when tests?
+               (invoke "dbus-launch" "ninja" "test"))))
          (delete 'check))))
     (inputs
      `(("bash-minimal" ,bash-minimal)))