10/10: gnu: tryton: Allow disabling the test suite.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 416f7843c48496fa3cbca2c2fffb9f661751cbe0
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Mon May 24 22:36:06 2021 +0200

    gnu: tryton: Allow disabling the test suite.
    
    * gnu/packages/tryton.scm
      (tryton-phases): Respect 'tests?' in the 'check' phase.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/tryton.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/tryton.scm b/gnu/packages/tryton.scm
index 107d5b4..5fbbeb5 100644
--- a/gnu/packages/tryton.scm
+++ b/gnu/packages/tryton.scm
@@ -150,15 +150,16 @@ and security.")
 If present, pass EXTRA-ARGUMENTS to runtest as well."
   `(modify-phases %standard-phases
      (replace 'check
-       (lambda* (#:key inputs outputs #:allow-other-keys)
+       (lambda* (#:key inputs outputs tests? #:allow-other-keys)
          (let ((runtest
                 (string-append
                  (assoc-ref inputs "trytond")
                  "/lib/python"
                  ,(version-major+minor (package-version python))
                  "/site-packages/trytond/tests/run-tests.py")))
-           (add-installed-pythonpath inputs outputs)
-           (invoke "python" runtest "-m" ,module ,@extra-arguments))))))
+           (when tests?
+             (add-installed-pythonpath inputs outputs)
+             (invoke "python" runtest "-m" ,module ,@extra-arguments)))))))
 
 (define (tryton-arguments module . extra-arguments)
   "Like ’tryton-phases’, but directly return all arguments for