ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/python: Make sure 'check' returns failures.

Browse source 
* guix/build/python-build-system.scm (check): Wrap 'call-setuppy' in 'if' so
that it actually fails when the tests fail. Print informational message when
skipped.
This commit is contained in:
Marius Bakke 2016-12-12 00:25:27 +01:00
parent 3f1b4bc316
commit e46a043ecd
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -137,11 +137,15 @@ (define* (check #:key tests? test-target use-setuptools? #:allow-other-keys)
;; (given with `package_dir`). This will by copied to the output, too,
;; so we need to remove.
(let ((before (find-files "build" "\\.egg-info$" #:directories? #t)))
(call-setuppy test-target '() use-setuptools?)
(let* ((after (find-files "build" "\\.egg-info$" #:directories? #t))
(inter (lset-difference eqv? after before)))
(for-each delete-file-recursively inter)))
#t))
(if (call-setuppy test-target '() use-setuptools?)
(let* ((after (find-files "build" "\\.egg-info$" #:directories? #t))
(inter (lset-difference eqv? after before)))
(for-each delete-file-recursively inter)
#t)
#f))
(begin
(format #t "test suite not run~%")
#t)))
(define (get-python-version python)
(let* ((version (last (string-split python #\-)))