01/03: gnu: libavif: Honor #:tests? flag.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 9c098979a2ce5732d689ddf919aa9bd3464d9d3d
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Jan 3 21:57:35 2023 +0200

    gnu: libavif: Honor #:tests? flag.
    
    * gnu/packages/image.scm (libavif)[arguments]: Adjust custom 'check
    phase to honor the #:tests? flag.
---
 gnu/packages/image.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index c7cfad8714..53e5363dcd 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -8,7 +8,7 @@
 ;;; Copyright © 2015 Amirouche Boubekki <amirouche@hypermove.net>
 ;;; Copyright © 2014, 2017 John Darrington <jmd@gnu.org>
 ;;; Copyright © 2016, 2017, 2018, 2020 Leo Famulari <leo@famulari.name>
-;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021, 2022 Efraim Flashner 
<efraim@flashner.co.il>
+;;; Copyright © 2016-2023 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2016–2022 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2016, 2017, 2020, 2021, 2022 Arun Isaac 
<arunisaac@systemreboot.net>
@@ -2181,8 +2181,9 @@ This package can be used to create @code{favicon.ico} 
files for web sites.")
       #:phases
       #~(modify-phases %standard-phases
           (replace 'check
-            (lambda _
-              (invoke "./aviftest" "../source/tests/data")))
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                (invoke "./aviftest" "../source/tests/data"))))
           (add-after 'install 'install-readme
             (lambda _
               (let ((doc (string-append #$output "/share/doc/libavif-" 
#$version)))