diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-10-30 05:36:44 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-10-30 05:36:44 +0000 |
| commit | 427bc999c3ac6aaf5090002cc553328b89b1495d (patch) | |
| tree | c5fd227ea31d0059716e604e1382645e37fef449 /src/clojure/contrib/test_clojure | |
| parent | 17bac249a1b72613e720541c9ec263f83348f8f0 (diff) | |
test-clojure: use explicit loading--it works
Diffstat (limited to 'src/clojure/contrib/test_clojure')
| -rw-r--r-- | src/clojure/contrib/test_clojure/test_clojure.clj | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/src/clojure/contrib/test_clojure/test_clojure.clj b/src/clojure/contrib/test_clojure/test_clojure.clj index a583eb10..f051c9af 100644 --- a/src/clojure/contrib/test_clojure/test_clojure.clj +++ b/src/clojure/contrib/test_clojure/test_clojure.clj @@ -15,20 +15,9 @@ (ns clojure.contrib.test-clojure (:import (java.io File FilenameFilter)) - (:use clojure.contrib.test-is)) - -(defn- filename-filter-re - [pattern] - (proxy [FilenameFilter] [] - (accept - [dir name] - (boolean (re-matches pattern name))))) - -(doseq file (.listFiles - (File. "tests") - (filename-filter-re #".*\.clj")) - (printf "Loading %s\n" file) - (load (.getPath file))) + (:use clojure.contrib.test-is) + (:load "tests/reader.clj" + "tests/printer.clj")) (binding [*test-out* (java.io.PrintWriter. *out*)] (run-tests) |