~ruther/guix-local: gnu: phockup: Respect tests?.

16aaabdf53c74aff0f4d3a297effca450f0abac4 — Arun Isaac 7 months ago 2fe2935

gnu: phockup: Respect tests?.

* gnu/packages/image.scm (phockup)[arguments]: Respect tests? in the check
phase.

patch browse .tar.gz

1 files changed, 8 insertions(+), 7 deletions(-)

M gnu/packages/image.scm

M gnu/packages/image.scm => gnu/packages/image.scm +8 -7

@@ 2964,13 2964,14 @@ Wacom-style graphics tablets.")
                (("'exiftool")
                 (string-append "'" (search-input-file inputs "bin/exiftool"))))))
          (add-before 'install 'check
-           (lambda _
-             ;; Test without PATH to make sure ‘exiftool’ is properly found.
-             (let ((path (getenv "PATH"))
-                   (pytest (which "pytest")))
-               (setenv "PATH" "")
-               (invoke pytest)
-               (setenv "PATH" path))))
+           (lambda* (#:key tests? #:allow-other-keys)
+             (when tests?
+               ;; Test without PATH to make sure ‘exiftool’ is properly found.
+               (let ((path (getenv "PATH"))
+                     (pytest (which "pytest")))
+                 (setenv "PATH" "")
+                 (invoke pytest)
+                 (setenv "PATH" path)))))
          (add-after 'install 'install-bin
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))