Subject: bug#53291: closed (Re: bug#53291: [PATCH] build: clojure-build-system: Exit with non-zero if tests fail.)

From: [email-masked] (GNU bug Tracking System)
Date: Mon, 24 Jan 2022 09:12:02 +0000

Your bug report

#53291: [PATCH] build: clojure-build-system: Exit with non-zero if tests fail.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
53291: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=53291
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#53291: [PATCH] build: clojure-build-system: Exit with non-zero if tests fail.
From: Ludovic Courtès <[email-masked]>
To: Reily Siegel <[email-masked]>
Cc: [email-masked]
Date: Mon, 24 Jan 2022 10:11:21 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Hi,

Reily Siegel <[email-masked]> skribis:

> * guix/build/clojure-build-system.scm (check): Exit test process with a
> non-zero exit code if tests fail.

Applied, thanks!

Ludo’.

Subject: [PATCH] build: clojure-build-system: Exit with non-zero if tests fail.
From: Reily Siegel <[email-masked]>
To: [email-masked]
Date: Sat, 15 Jan 2022 20:03:25 -0500
List-Id: <debbugs-submit.debbugs.gnu.org>

* guix/build/clojure-build-system.scm (check): Exit test process with a
non-zero exit code if tests fail.
---
 guix/build/clojure-build-system.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/guix/build/clojure-build-system.scm b/guix/build/clojure-build-system.scm
index 91d6122afe..22e90581a5 100644
--- a/guix/build/clojure-build-system.scm
+++ b/guix/build/clojure-build-system.scm
@@ -99,8 +99,11 @@ (define* (check #:key
         (for-each (lambda (jar)
                     (eval-with-clojure `(do (apply require
                                                    '(clojure.test ,@libs*))
-                                            (apply clojure.test/run-tests
-                                                   ',libs*))
+                                            (if (clojure.test/successful?
+                                                 (apply clojure.test/run-tests
+                                                        ',libs*))
+                                                (System/exit 0)
+                                                (System/exit 1)))
                                        (cons jar test-dirs)))
                   jar-names)))
   #t)
-- 
2.34.0