ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-16 07:58:01 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

5
gnu/packages/music.scm
View file

@ -632,8 +632,9 @@ (define-public denemo
#: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.
(when tests?
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
;; Replace hard-coded diff file name. ;; Replace hard-coded diff file name.
(substitute* "tests/integration.c" (substitute* "tests/integration.c"
@ -641,7 +642,7 @@ (define-public denemo
(search-input-file inputs "/bin/diff"))) (search-input-file inputs "/bin/diff")))
;; Denemo's documentation says to use this command to run its ;; Denemo's documentation says to use this command to run its
;; test suite. ;; test suite.
(invoke "make" "-C" "tests" "check"))) (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.