11/11: gnu: praat: Honor #:tests?.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit f1badc9406aca4e59ab1eb823c40bd333612833e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Aug 7 16:11:01 2023 +0200

    gnu: praat: Honor #:tests?.
    
    * gnu/packages/language.scm (praat)[arguments]: Check #:tests? in 'check
    phase.
---
 gnu/packages/language.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/language.scm b/gnu/packages/language.scm
index 758fb4f336..175cdc8d5e 100644
--- a/gnu/packages/language.scm
+++ b/gnu/packages/language.scm
@@ -877,9 +877,10 @@ noun phrases, verb phrases, etc.).")
                             (copy-file "makefiles/makefile.defs.linux.pulse"
                                        "makefile.defs")))
                         (replace 'check
-                          (lambda _
-                            (invoke "./praat" "--run"
-                                    "test/runAllTests_batch.praat")))
+                          (lambda* (#:key tests? #:allow-other-keys)
+                            (when tests?
+                              (invoke "./praat" "--run"
+                                      "test/runAllTests_batch.praat"))))
                         (replace 'install
                           (lambda* (#:key outputs #:allow-other-keys)
                             (let* ((out (assoc-ref outputs "out"))