From a47d7af2273c2dbb5376e776b34e78a9146abbfe Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sun, 29 Sep 2024 02:00:00 +0200 Subject: gnu: src: Respect #:tests? argument. * gnu/packages/version-control.scm (src)[arguments]: Skip the 'check phase when #:tests? is false. Change-Id: Ic39cdb1e9a158d16d022f6e41a954b567731b124 --- gnu/packages/version-control.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 0096d3d829..de59c49b64 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -3449,11 +3449,12 @@ specific files and directories.") (wrap-program prog `("PATH" ":" prefix (,(dirname rcs))))))) (replace 'check - (lambda _ - (setenv "HOME" (getenv "TMPDIR")) - (invoke "git" "config" "--global" "user.name" "guix") - (invoke "git" "config" "--global" "user.email" "guix") - (invoke "./srctest")))))) + (lambda* (#:key tests? #:allow-other-keys) + (when tests? + (setenv "HOME" (getenv "TMPDIR")) + (invoke "git" "config" "--global" "user.name" "guix") + (invoke "git" "config" "--global" "user.email" "guix") + (invoke "./srctest"))))))) (native-inputs (list asciidoc ;; For testing. -- cgit v1.2.3