02/03: gnu: tlpui: Honor TESTS?.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 16c2372fe8c04ad652101b60440f7bd76e51c0f9
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Mon Jul 4 15:08:36 2022 +0200

    gnu: tlpui: Honor TESTS?.
    
    * gnu/packages/linux.scm (tlpui)[arguments]<#:phases>: Honor TESTS? in CHECK
    phase.
---
 gnu/packages/linux.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 04684b05df..5e72040927 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -7178,8 +7178,9 @@ every time the power supply source is changed.")
          ;; configuration from /etc/tlp.conf or /etc/default/tlp".
          (delete 'sanity-check)
          (replace 'check
-           (lambda _
-             (invoke "python" "-m" "discover")))
+           (lambda* (#:key tests? #:allow-other-keys)
+             (when tests?
+               (invoke "python" "-m" "discover"))))
          (add-after 'install 'wrap-gi-python
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out"))