added test_contrib.clj, similar test_clojure.clj

added test_clojure, test_contrib, and test tasks to build.xml

2 files changed, 56 insertions, 0 deletions

diff --git a/build.xml b/build.xml
index ae09fea7..141ede18 100644
--- a/build.xml
+++ b/build.xml
@@ -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))