amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/packages/haskell-apps.scm (git-annex)[arguments]: Adjust the
custom 'check phase to honor the #:tests? flag.
This commit is contained in:
Efraim Flashner 2021-11-26 11:00:17 +02:00
parent 4b632fb864
commit 5d93e9e36a
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
gnu/packages/haskell-apps.scm
View file

@ -372,15 +372,15 @@ to @code{cabal repl}).")
(format out "main = buildMansOrWarn~%"))) (format out "main = buildMansOrWarn~%")))
(invoke "runhaskell" "Build/MakeMans.hs"))) (invoke "runhaskell" "Build/MakeMans.hs")))
(replace 'check (replace 'check
(lambda _ (lambda* (#:key tests? #:allow-other-keys)
;; We need to set the path so that Git recognizes ;; We need to set the path so that Git recognizes
;; `git annex' as a custom command. ;; `git annex' as a custom command.
(setenv "PATH" (string-append (getenv "PATH") ":" (setenv "PATH" (string-append (getenv "PATH") ":"
(getcwd) "/dist/build/git-annex")) (getcwd) "/dist/build/git-annex"))
(when tests?
(with-directory-excursion "dist/build/git-annex" (with-directory-excursion "dist/build/git-annex"
(symlink "git-annex" "git-annex-shell")) (symlink "git-annex" "git-annex-shell"))
(invoke "git-annex" "test") (invoke "git-annex" "test"))))
#t))
(add-after 'check 'unpatch-shell-and-rebuild (add-after 'check 'unpatch-shell-and-rebuild
(lambda args (lambda args
;; Undo `patch-shell-for-tests'. ;; Undo `patch-shell-for-tests'.