From 416f7843c48496fa3cbca2c2fffb9f661751cbe0 Mon Sep 17 00:00:00 2001 From: Maxime Devos Date: Mon, 24 May 2021 22:36:06 +0200 Subject: [PATCH] gnu: tryton: Allow disabling the test suite. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/tryton.scm (tryton-phases): Respect 'tests?' in the 'check' phase. Signed-off-by: Ludovic Courtès --- 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 107d5b4a7c..5fbbeb53be 100644 --- a/gnu/packages/tryton.scm +++ b/gnu/packages/tryton.scm @@ -150,15 +150,16 @@ (define (tryton-phases module . extra-arguments) 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