futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

python-build-system: add a check phase.

Browse Source 
* guix/build/python-build-system.scm (check): New procedure.
  (%standard-phases): Use it.
This commit is contained in:
Cyril Roelandt 2013-05-23 03:38:43 +02:00
parent 9b222abe03
commit 842ded334f
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
guix/build/python-build-system.scm
View File

@ -45,6 +45,14 @@
(zero? (apply system* "python" args))) (zero? (apply system* "python" args)))
(error "no setup.py found")))) (error "no setup.py found"))))
(define* (check #:key outputs #: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")))
(define* (wrap #:key outputs python-version #:allow-other-keys) (define* (wrap #:key outputs python-version #:allow-other-keys)
(define (list-of-files dir) (define (list-of-files dir)
(map (cut string-append dir "/" <>) (map (cut string-append dir "/" <>)
@ -78,10 +86,12 @@
(alist-cons-after (alist-cons-after
'install 'wrap 'install 'wrap
wrap wrap
(alist-replace 'install install (alist-replace
(alist-delete 'configure 'check check
(alist-replace 'install install
(alist-delete 'configure
(alist-delete 'build (alist-delete 'build
gnu:%standard-phases))))) gnu:%standard-phases))))))
(define* (python-build #:key inputs (phases %standard-phases) (define* (python-build #:key inputs (phases %standard-phases)
#:allow-other-keys #:rest args) #:allow-other-keys #:rest args)