futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
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"))
(with-directory-excursion "dist/build/git-annex" (when tests?
(symlink "git-annex" "git-annex-shell")) (with-directory-excursion "dist/build/git-annex"
(invoke "git-annex" "test") (symlink "git-annex" "git-annex-shell"))
#t)) (invoke "git-annex" "test"))))
(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'.