02/04: gnu: p7zip: Honor #:tests? flag.

[guix-commits]

efraim pushed a commit to branch core-updates-frozen
in repository guix.

commit de0954d18c70c8959243696d4519c2ac58271ff6
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun Aug 8 10:46:44 2021 +0300

    gnu: p7zip: Honor #:tests? flag.
    
    * gnu/packages/compression.scm (p7zip)[arguments]: Only run test suite
    when #:tests? is true.
---
 gnu/packages/compression.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm
index 4e6370f..561f134 100644
--- a/gnu/packages/compression.scm
+++ b/gnu/packages/compression.scm
@@ -1347,10 +1347,11 @@ for most inputs, but the resulting compressed files are 
anywhere from 20% to
                          "makefile.linux_any_cpu_gcc_4.X")))
                      "makefile.machine")))
          (replace 'check
-           (lambda _
-             (invoke "make" "test")
-             (invoke "make" "test_7z")
-             (invoke "make" "test_7zr"))))))
+           (lambda* (#:key tests? #:allow-other-keys)
+             (when tests?
+               (invoke "make" "test")
+               (invoke "make" "test_7z")
+               (invoke "make" "test_7zr")))))))
     (native-inputs
      (let ((system (or (%current-target-system)
                        (%current-system))))