Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Branch: 1.2.x
Fetching contributors…

Cannot retrieve contributors at this time

100 lines (92 sloc) 2.504 kB
; Copyright (c) Rich Hickey. All rights reserved.
; The use and distribution terms for this software are covered by the
; Eclipse Public License 1.0 (
; 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.test-clojure
;; Tests for the facilities provided by Clojure
;; scgilardi (gmail)
;; Created 22 October 2008
(ns clojure.test-clojure
(:require [clojure.test :as t])
(def test-names
;; libraries
(def test-namespaces
(map #(symbol (str "clojure.test-clojure." (name %)))
(defn run
"Runs all defined tests"
(println "Loading tests...")
(apply require :reload-all test-namespaces)
(apply t/run-tests test-namespaces))
(defn run-ant
"Runs all defined tests, prints report to *err*, throw if failures. This works well for running in an ant java task."
(let [rpt t/report]
(binding [;; binding to *err* because, in ant, when the test target
;; runs after compile-clojure, *out* doesn't print anything
*out* *err*
t/*test-out* *err*
t/report (fn report [m]
(if (= :summary (:type m))
(do (rpt m)
(if (or (pos? (:fail m)) (pos? (:error m)))
(throw (new Exception (str (:fail m) " failures, " (:error m) " errors.")))))
(rpt m)))]
(defn -main
"Run all defined tests from the command line"
[& args]
(System/exit 0))
Jump to Line
Something went wrong with that request. Please try again.