gistfile1.txt

(defn run-tests!
  "Runs all tests"
  [& args]
  (let [tests (test-namespaces)]
    (doseq [test tests] (require test))
    (let [test-results (apply merge-with + (map test-ns tests))]
      (if (= [:shutdown-agents] args)
        (shutdown-agents))
      (System/exit (if (or (< 0 (test-results :fail))
                           (< 0 (test-results :error)))
                     -1
                     0)))))