02/02: gnu: git-annex: Honor the #:tests? flag.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 5d93e9e36a9927f77e789293e2db7c42be199024
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Fri Nov 26 11:00:17 2021 +0200

    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 2a07aa5..8ef5bb5 100644
--- a/gnu/packages/haskell-apps.scm
+++ b/gnu/packages/haskell-apps.scm
@@ -372,15 +372,15 @@ to @code{cabal repl}).")
                  (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'.