TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: python: Honour #:tests? and #:test-target in build system.

Browse source 
* guix/build/python-build-system.scm (check): Use named parameters tests?
    and test-target (default now: "test" instead of "check").
This commit is contained in:
Andreas Enge 2013-09-05 18:43:18 +02:00
parent d1f30e9943
commit 7b96bf82da
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
guix/build/python-build-system.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;;
;;; This file is part of GNU Guix.
@ -45,13 +46,15 @@ (define* (install #:key outputs (configure-flags '())
(zero? (apply system* "python" args)))
(error "no setup.py found"))))
(define* (check #:key outputs #:allow-other-keys)
(define* (check #:key outputs tests? test-target #:allow-other-keys)
"Run the test suite of a given Python package."
(if (file-exists? "setup.py")
(let ((args `("setup.py" "check")))
(format #t "running 'python' with arguments ~s~%" args)
(zero? (apply system* "python" args)))
(error "no setup.py found")))
(if tests?
(if (file-exists? "setup.py")
(let ((args `("setup.py" ,test-target)))
(format #t "running 'python' with arguments ~s~%" args)
(zero? (apply system* "python" args)))
(error "no setup.py found"))
#t))
(define* (wrap #:key inputs outputs #:allow-other-keys)
(define (list-of-files dir)