From 504d15a593faf06ed502057406a20b3601e12759 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 12 Mar 2022 19:23:09 +0100 Subject: [PATCH] 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 @@ (define-public denemo #: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.