03/03: gnu: denemo: Honor TESTS?.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 504d15a593faf06ed502057406a20b3601e12759
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sat Mar 12 19:23:09 2022 +0100

    gnu: denemo: Honor TESTS?.
    
    * gnu/packages/music.scm (denemo)[arguments]<#:phases>: Honor TESTS? 
keyword.
---
 gnu/packages/music.scm | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

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