summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorReily Siegel <mail@reilysiegel.com>2022-01-15 20:03:25 -0500
committerLudovic Courtès <ludo@gnu.org>2022-01-24 10:38:14 +0100
commit09b4d74bd352d40b45e081eaa094b086a42dad3d (patch)
treeb62b3f440ccdd4a9628845c56717d50d52aa728d /guix/build
parent008215c1931e74c82bec2d15dd358d2cd448c099 (diff)
build-system/clojure: Exit with non-zero if tests fail.
* guix/build/clojure-build-system.scm (check): Exit test process with a non-zero exit code if tests fail. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/clojure-build-system.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/guix/build/clojure-build-system.scm b/guix/build/clojure-build-system.scm
index d8f7c89f85..dd01f95de8 100644
--- a/guix/build/clojure-build-system.scm
+++ b/guix/build/clojure-build-system.scm
@@ -78,8 +78,11 @@ priority over TEST-INCLUDE."
(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)