From f1badc9406aca4e59ab1eb823c40bd333612833e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 7 Aug 2023 16:11:01 +0200
Subject: [PATCH] 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 @@ (define-public praat
                             (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"))