me/guix
Archived
1
0
Fork 0
Code Activity

gnu: denemo: Honor TESTS?.

Browse source 
* gnu/packages/music.scm (denemo)[arguments]<#:phases>: Honor TESTS? keyword.
This commit is contained in:
Nicolas Goaziou 2022-03-12 19:23:09 +01:00
parent 33331efc46
commit 504d15a593
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/music.scm
View file

@ -632,16 +632,17 @@ many input formats and provides a customisable Vi-style user interface.")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'check (replace 'check
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs tests? #:allow-other-keys)
;; Tests require to write $HOME. ;; Tests require to write $HOME.
(setenv "HOME" (getcwd)) (when tests?
;; Replace hard-coded diff file name. (setenv "HOME" (getcwd))
(substitute* "tests/integration.c" ;; Replace hard-coded diff file name.
(("/usr/bin/diff") (substitute* "tests/integration.c"
(search-input-file inputs "/bin/diff"))) (("/usr/bin/diff")
;; Denemo's documentation says to use this command to run its (search-input-file inputs "/bin/diff")))
;; test suite. ;; Denemo's documentation says to use this command to run its
(invoke "make" "-C" "tests" "check"))) ;; test suite.
(invoke "make" "-C" "tests" "check"))))
(add-before 'build 'set-lilypond (add-before 'build 'set-lilypond
;; This phase sets the default path for lilypond to its current ;; This phase sets the default path for lilypond to its current
;; location in the store. ;; location in the store.