From 16aaabdf53c74aff0f4d3a297effca450f0abac4 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 29 Sep 2025 13:40:04 +0100 Subject: [PATCH] gnu: phockup: Respect tests?. * gnu/packages/image.scm (phockup)[arguments]: Respect tests? in the check phase. --- gnu/packages/image.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm index 192544e8dae90465b9120adfcd4f5efa120c1da4..e34ffca44a1b0bbfeebde3fe91c10ae428f85370 100644 --- a/gnu/packages/image.scm +++ b/gnu/packages/image.scm @@ -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")))