From mboxrd@z Thu Jan 1 00:00:00 1970 From: Danny Milosavljevic Subject: [PATCH] guix: python-build-system: Properly inform caller about test status. Date: Thu, 5 Jan 2017 00:30:58 +0100 Message-ID: <20170104233058.4068-1-dannym@scratchpost.org> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:42634) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cOv6J-0004nq-7y for guix-devel@gnu.org; Wed, 04 Jan 2017 18:36:12 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cOv6E-0007DU-Bl for guix-devel@gnu.org; Wed, 04 Jan 2017 18:36:11 -0500 Received: from dd1012.kasserver.com ([85.13.128.8]:42779) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1cOv6E-0007B0-5H for guix-devel@gnu.org; Wed, 04 Jan 2017 18:36:06 -0500 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org * guix/build/python-build-system.scm (check): Properly inform caller about test status. --- guix/build/python-build-system.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/guix/build/python-build-system.scm b/guix/build/python-build-system.scm index 3f280b0ac..d46739827 100644 --- a/guix/build/python-build-system.scm +++ b/guix/build/python-build-system.scm @@ -136,12 +136,13 @@ ;; build/lib in some cases, e.g. if the source is in a sub-directory ;; (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)) + (let* ((before (find-files "build" "\\.egg-info$" #:directories? #t)) + (status (call-setuppy test-target '() use-setuptools?)) + (after (find-files "build" "\\.egg-info$" #:directories? #t)) + (inter (lset-difference eqv? after before))) + (for-each delete-file-recursively inter) + status) + #t)) (define (get-python-version python) (let* ((version (last (string-split python #\-)))