diff options
Diffstat (limited to 'src/clojure/contrib/test_clojure/test_clojure.clj')
| -rw-r--r-- | src/clojure/contrib/test_clojure/test_clojure.clj | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/src/clojure/contrib/test_clojure/test_clojure.clj b/src/clojure/contrib/test_clojure/test_clojure.clj index f051c9af..9dd23f17 100644 --- a/src/clojure/contrib/test_clojure/test_clojure.clj +++ b/src/clojure/contrib/test_clojure/test_clojure.clj @@ -15,10 +15,18 @@ (ns clojure.contrib.test-clojure (:import (java.io File FilenameFilter)) - (:use clojure.contrib.test-is) - (:load "tests/reader.clj" - "tests/printer.clj")) + (:use clojure.contrib.test-is)) + +(def tests [:reader :printer :numbers]) + +(defn test-name + [test] + (symbol (str "clojure.contrib.test-clojure." (name test)))) + +(doseq test tests + (require (test-name test))) (binding [*test-out* (java.io.PrintWriter. *out*)] - (run-tests) - (println)) + (doseq test tests + (println "\n\n=====>" test) + (run-tests (test-name test)))) |