09/11: gnu: praat: Add tests to praat.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit a9070e8ece5e4c9951047e304ee864f2b3016346
Author: Preston M. Firestone <firestone.preston@gmail.com>
AuthorDate: Mon Jun 26 12:42:16 2023 -0500

    gnu: praat: Add tests to praat.
    
    * gnu/packages/language.scm (praat): Run non-graphical tests.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/language.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/language.scm b/gnu/packages/language.scm
index fc33e6f42e..11fc17b427 100644
--- a/gnu/packages/language.scm
+++ b/gnu/packages/language.scm
@@ -867,13 +867,21 @@ noun phrases, verb phrases, etc.).")
     (build-system gnu-build-system)
     (arguments
      `(#:make-flags (list (string-append "CC=" ,(cc-for-target)))
-       #:tests? #f                      ; no test target
        #:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'delete-failing-tests
+           (lambda _
+             (delete-file "test/sys/graphicsText.praat")
+             #t))
          (replace 'configure
            (lambda _
              (copy-file "makefiles/makefile.defs.linux.pulse" "makefile.defs")
              #t))
+         (replace 'check
+           (lambda _
+             (invoke "./praat" "--run"
+                     "test/runAllTests_batch.praat")
+             #t))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))