From d3fcf8d56122514c3dcbac004fcf105a4e899352 Mon Sep 17 00:00:00 2001 From: sostler Date: Wed, 10 Feb 2010 01:08:44 -0500 Subject: Added custom compojure tree --- compojure-3.2/test/run.clj | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100755 compojure-3.2/test/run.clj (limited to 'compojure-3.2/test/run.clj') diff --git a/compojure-3.2/test/run.clj b/compojure-3.2/test/run.clj new file mode 100755 index 0000000..a651691 --- /dev/null +++ b/compojure-3.2/test/run.clj @@ -0,0 +1,17 @@ +(use 'clojure.contrib.find-namespaces + 'clojure.test) + +(defn find-tests [] + (filter + #(re-find #"-test" (str %)) (find-namespaces-in-dir (java.io.File. "test")))) + +(defn require-tests [] + (doseq [test (find-tests)] + (require test))) + +(require-tests) +(let [results (apply merge-with + (map test-ns (find-tests)))] + (if (or (> (results :fail) 0) + (> (results :error) 0)) + (System/exit -1) + (System/exit 0))) -- cgit v1.2.3-70-g09d2