diff options
| -rw-r--r-- | build.xml | 29 | ||||
| -rw-r--r-- | src/clojure/contrib/test_contrib.clj | 27 |
2 files changed, 56 insertions, 0 deletions
@@ -24,6 +24,35 @@ <delete dir="${build}"/> </target> + <target name="test_clojure" + description = "Run clojure tests" + if="hasclojure"> + <java classname="clojure.main"> + <classpath> + <path location="${build}"/> + <path location="${src}"/> + <path location="${clojure.jar}"/> + </classpath> + <arg value="src/clojure/contrib/test_clojure.clj"/> + </java> + </target> + + <target name="test_contrib" + description = "Run contrib tests" + if="hasclojure"> + <java classname="clojure.main"> + <classpath> + <path location="${build}"/> + <path location="${src}"/> + <path location="${clojure.jar}"/> + </classpath> + <arg value="src/clojure/contrib/test_contrib.clj"/> + </java> + </target> + + <target name="test" depends="test_clojure,test_contrib" + description="Run all tests"/> + <target name="compile_clojure" depends="init" description="Compile Clojure sources." if="hasclojure"> diff --git a/src/clojure/contrib/test_contrib.clj b/src/clojure/contrib/test_contrib.clj new file mode 100644 index 00000000..65881474 --- /dev/null +++ b/src/clojure/contrib/test_contrib.clj @@ -0,0 +1,27 @@ +;; 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.contrib.test-is)) + +(def tests [:str-utils]) + +(defn test-name + [test] + (symbol (str "clojure.contrib.test-contrib." (name test)))) + +(doseq [test tests] + (require (test-name test))) + +(apply run-tests (map test-name tests)) |