01/02: gnu: syncthing: Allow skipping the check phase.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 9c8a108186fa23cf31bf3a1a2370c4f82bdc91e3
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Apr 26 21:28:18 2021 +0300

    gnu: syncthing: Allow skipping the check phase.
    
    * gnu/packages/syncthing.scm (syncthing)[arguments]: Adjust the custom
    'check phase so tests only run when enabled.
---
 gnu/packages/syncthing.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/syncthing.scm b/gnu/packages/syncthing.scm
index e800aeb..469c19f 100644
--- a/gnu/packages/syncthing.scm
+++ b/gnu/packages/syncthing.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2016 Petter <petter@mykolab.ch>
 ;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Leo Famulari 
<leo@famulari.name>
 ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
-;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
 ;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;;
@@ -87,9 +87,11 @@
                (invoke "go" "run" "build.go" "-no-upgrade" "build" 
"syncthing"))))
 
          (replace 'check
-           (lambda _
-             (with-directory-excursion "src/github.com/syncthing/syncthing"
-               (invoke "go" "run" "build.go" "test"))))
+           (lambda* (#:key tests? #:allow-other-keys)
+             (when tests?
+               (with-directory-excursion "src/github.com/syncthing/syncthing"
+                 (invoke "go" "run" "build.go" "test")))
+             #t))
 
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)