diff options
author | Reily Siegel <mail@reilysiegel.com> | 2022-01-15 20:03:25 -0500 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2022-01-24 10:38:14 +0100 |
commit | 09b4d74bd352d40b45e081eaa094b086a42dad3d (patch) | |
tree | b62b3f440ccdd4a9628845c56717d50d52aa728d /guix/build/clojure-build-system.scm | |
parent | 008215c1931e74c82bec2d15dd358d2cd448c099 (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/clojure-build-system.scm')
-rw-r--r-- | guix/build/clojure-build-system.scm | 7 |
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) |