aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/test_clojure/test_clojure.clj
blob: a583eb107d86973bcdf9d961f864f58a1e0d47f4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
;;  Copyright (c) Stephen C. Gilardi. All rights reserved. The use and
;;  distribution terms for this software are covered by the Common Public
;;  License 1.0 (http://opensource.org/licenses/cpl.php) which can be found
;;  in the file CPL.TXT at the root of this distribution. By using this
;;  software in any fashion, you are agreeing to be bound by the terms of
;;  this license. You must not remove this notice, or any other, from this
;;  software.
;;
;;  clojure.contrib.test-clojure
;;
;;  Tests for the facilities provided by Clojure
;;
;;  scgilardi (gmail)
;;  Created 22 October 2008

(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)))

(binding [*test-out* (java.io.PrintWriter. *out*)]
  (run-tests)
  (println))