mirror of
git://git.savannah.gnu.org/guix.git
synced 2023-12-14 03:33:07 +01:00
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>
This commit is contained in:
parent
0ab7796f4d
commit
416f7843c4
1 changed files with 4 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue