From 5d93e9e36a9927f77e789293e2db7c42be199024 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Fri, 26 Nov 2021 11:00:17 +0200 Subject: gnu: git-annex: Honor the #:tests? flag. * gnu/packages/haskell-apps.scm (git-annex)[arguments]: Adjust the custom 'check phase to honor the #:tests? flag. --- gnu/packages/haskell-apps.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/gnu/packages/haskell-apps.scm b/gnu/packages/haskell-apps.scm index 2a07aa547d..8ef5bb5788 100644 --- a/gnu/packages/haskell-apps.scm +++ b/gnu/packages/haskell-apps.scm @@ -372,15 +372,15 @@ (define-public git-annex (format out "main = buildMansOrWarn~%"))) (invoke "runhaskell" "Build/MakeMans.hs"))) (replace 'check - (lambda _ + (lambda* (#:key tests? #:allow-other-keys) ;; We need to set the path so that Git recognizes ;; `git annex' as a custom command. (setenv "PATH" (string-append (getenv "PATH") ":" (getcwd) "/dist/build/git-annex")) - (with-directory-excursion "dist/build/git-annex" - (symlink "git-annex" "git-annex-shell")) - (invoke "git-annex" "test") - #t)) + (when tests? + (with-directory-excursion "dist/build/git-annex" + (symlink "git-annex" "git-annex-shell")) + (invoke "git-annex" "test")))) (add-after 'check 'unpatch-shell-and-rebuild (lambda args ;; Undo `patch-shell-for-tests'. -- cgit v1.2.3