git » blacktide.git » master » tree

[master] / test / com / tailrecursion / check_runner.clj 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
(ns com.tailrecursion.check-runner
  "Run the library's static probes and the production compiler checks."
  (:require [clojure.test :as test]
            [com.tailrecursion.nanopass.check]
            [com.tailrecursion.blacktide.check]))

(defn -main [& _]
  (let [{:keys [fail error]} (test/run-tests 'com.tailrecursion.nanopass.check
                                          'com.tailrecursion.blacktide.check)]
    (shutdown-agents)
    (when (pos? (+ fail error)) (System/exit 1))))