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 | |
| parent | 008215c1931e74c82bec2d15dd358d2cd448c099 (diff) | |
| download | guix-patches-09b4d74bd352d40b45e081eaa094b086a42dad3d.tar guix-patches-09b4d74bd352d40b45e081eaa094b086a42dad3d.tar.gz | |
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>
| -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) |