mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-03 00:26:33 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: praat: Add tests to praat.

Browse source 
* gnu/packages/language.scm (praat): Run non-graphical tests.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Preston M. Firestone 2023-06-26 12:42:16 -05:00 committed by Ludovic Courtès
parent 730fea3f28
commit a9070e8ece
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/language.scm
View file

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