Make test script exit non-zero on failure

joddie · Dec 13, 2015 · a3338d3 · a3338d3
1 parent aa59895
commit a3338d3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/macrostep-test.el b/macrostep-test.el
@@ -457,4 +457,6 @@ XSTRING (Lisp_Object a)
 (when noninteractive
   (load-file (expand-file-name "macrostep.el"
                                (file-name-directory load-file-name)))
-  (ert-run-tests-batch "^macrostep"))
+  (let ((stats (ert-run-tests-batch "^macrostep")))
+        (if noninteractive
+            (kill-emacs (ert-stats-completed-unexpected stats)))))