03/03: gnu: restic: Have the custom check phase honor TESTS?.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit 362a1cc3fb50c67ed4249b97827dbffdbdace766
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu Aug 5 22:54:19 2021 -0400

    gnu: restic: Have the custom check phase honor TESTS?.
    
    * gnu/packages/backup.scm (restic)[phases]{check}: Honor TESTS?.
---
 gnu/packages/backup.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index d8d8728..b35dbe4 100644
--- a/gnu/packages/backup.scm
+++ b/gnu/packages/backup.scm
@@ -948,11 +948,12 @@ is like a time machine for your data. ")
                (invoke "go" "run" "build.go"))))
 
          (replace 'check
-           (lambda _
-             (with-directory-excursion "src/github.com/restic/restic"
-               ;; Disable FUSE tests.
-               (setenv "RESTIC_TEST_FUSE" "0")
-               (invoke "go" "run" "build.go" "--test"))))
+           (lambda* (#:key tests? #:allow-other-keys)
+             (when tests?
+               (with-directory-excursion "src/github.com/restic/restic"
+                 ;; Disable FUSE tests.
+                 (setenv "RESTIC_TEST_FUSE" "0")
+                 (invoke "go" "run" "build.go" "--test")))))
 
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)