Remove exit in favor of os-exit.

This commit is contained in:
Calvin Rose
2018-03-28 21:24:54 -04:00
parent e21a69920f
commit 0d5b57daee
5 changed files with 3 additions and 15 deletions
+1 -2
View File
@@ -19,5 +19,4 @@
(defn end-suite []
(print "\nTest suite " suite-num " finished.")
(print num-tests-passed " of " num-tests-run " tests passed.\n")
(if (not= num-tests-passed num-tests-run) (exit 1)))
(if (not= num-tests-passed num-tests-run) (os-exit 1)))