diff mbox series

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

Message ID 87sftoijaa.fsf@reilysiegel.com
State Accepted
Headers show
Series [bug#53291] build: clojure-build-system: Exit with non-zero if tests fail. | expand

Checks

Context Check Description
cbaines/comparison success View comparision
cbaines/git branch success View Git branch
cbaines/applying patch success View Laminar job
cbaines/issue success View issue

Commit Message

Reily Siegel Jan. 16, 2022, 1:03 a.m. UTC 
* 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(-)

Comments

Ludovic Courtès Jan. 24, 2022, 9:11 a.m. UTC | #1 
Hi,

Reily Siegel <mail@reilysiegel.com> skribis:

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

Applied, thanks!

Ludo’.
diff mbox series

Patch

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)