diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-10-30 16:41:28 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-10-30 16:41:28 +0000 |
| commit | 89c615f39c4b48d5193cefa531bdba062944f6a1 (patch) | |
| tree | c72ea5afd479fce59f5766b97d9cb21a63f20aaf /src/clojure/contrib/test_clojure/test_clojure.clj | |
| parent | 427bc999c3ac6aaf5090002cc553328b89b1495d (diff) | |
another restructure to give more useful results
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)))) |