mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-20 06:37:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: src: Respect #:tests? argument.

Browse source 
* gnu/packages/version-control.scm (src)[arguments]: Skip the 'check
phase when #:tests? is false.

Change-Id: Ic39cdb1e9a158d16d022f6e41a954b567731b124
This commit is contained in:
Tobias Geerinckx-Rice 2024-09-29 02:00:00 +02:00
parent b1df929e1b
commit a47d7af227
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/version-control.scm
View file

@ -3449,11 +3449,12 @@ (define-public src
(wrap-program prog (wrap-program prog
`("PATH" ":" prefix (,(dirname rcs))))))) `("PATH" ":" prefix (,(dirname rcs)))))))
(replace 'check (replace 'check
(lambda _ (lambda* (#:key tests? #:allow-other-keys)
(setenv "HOME" (getenv "TMPDIR")) (when tests?
(invoke "git" "config" "--global" "user.name" "guix") (setenv "HOME" (getenv "TMPDIR"))
(invoke "git" "config" "--global" "user.email" "guix") (invoke "git" "config" "--global" "user.name" "guix")
(invoke "./srctest")))))) (invoke "git" "config" "--global" "user.email" "guix")
(invoke "./srctest")))))))
(native-inputs (native-inputs
(list asciidoc (list asciidoc
;; For testing. ;; For testing.