test_contrib.clj

;;  Copyright (c) Stuart Halloway. All rights reserved.  The use and
;;  distribution terms for this software are covered by the Eclipse Public
;;  License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) which can
;;  be found in the file epl-v10.html 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-contrib
;;
;;  Tests for the facilities provided by clojure-contrib
;;
;;  stuart.halloway (gmail)

(ns clojure.contrib.test-contrib
  (:use [clojure.test :only (run-tests)])
  (:gen-class))

(def test-names
     [:complex-numbers :fnmap :macro-utils :monads :pprint.pretty
      :pprint.cl-format :str-utils :shell-out :test-graph
      :test-dataflow :test-java-utils :test-lazy-seqs
      :test-trace :test-jmx :java-utils :mock-test :mock-test.test-adapter-test
      :seq-utils-test])

(def test-namespaces
		(concat
			['clojure.contrib.math.tests 'clojure.contrib.core.tests]
		(map #(symbol (str "clojure.contrib.test-contrib." (name %)))
		test-names)))

(defn run
  "Runs all defined tests"
  []
  (println "Loading tests...")
  (apply require :reload-all test-namespaces)
  (apply run-tests test-namespaces))

(defn -main
  "Run all defined tests from the command line"
  [& args]
  (run)
  (System/exit 0))