nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

python-build-system: add a check phase. 

* guix/build/python-build-system.scm (check): New procedure.
  (%standard-phases): Use it.
master
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)))
(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 (list-of-files dir)
(map (cut string-append dir "/" <>)
@ -78,10 +86,12 @@
(alist-cons-after
'install 'wrap
wrap
(alist-replace 'install install
(alist-delete 'configure
(alist-replace
'check check
(alist-replace 'install install
(alist-delete 'configure
(alist-delete 'build
gnu:%standard-phases)))))
gnu:%standard-phases))))))
(define* (python-build #:key inputs (phases %standard-phases)
#:allow-other-keys #:rest args)