Marius Bakke <[email protected]> writes: > Perhaps something like this would work (untested)?
Oops, here is the patch I wanted to attach:
--8<---------------cut here---------------start------------->8---
(define* (check #:key tests? test-target use-setuptools? #:allow-other-keys)
"Run the test suite of a given Python package."
(if tests?
(let ((before (find-files "build" "\\.egg-info$" #:directories? #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)
#t))
--8<---------------cut here---------------end--------------->8---
signature.asc
Description: PGP signature
