diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2016-12-12 00:25:27 +0100 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2016-12-13 21:04:31 +0100 |
| commit | e46a043ecd9f9ef46d1d44393362bb7016454544 (patch) | |
| tree | 529ed7b708bc04a3f65966931477656bcddd74ed /guix | |
| parent | 3f1b4bc316e6c561e85692a1fb0ed511547f85d2 (diff) | |
build-system/python: Make sure 'check' returns failures.
* 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.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/build/python-build-system.scm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/guix/build/python-build-system.scm b/guix/build/python-build-system.scm index 3f280b0ac0..dd07986b94 100644 --- a/guix/build/python-build-system.scm +++ b/guix/build/python-build-system.scm @@ -137,11 +137,15 @@ ;; (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 #\-))) |