Merge pull request #6 from pbzdyl/issues/5

Added support for JUnit XML report generation (issue #5).

Author: cursive-ghost

README.md

@@ -41,6 +41,9 @@ compileTestClojure {
 testClojure {
   // Standard JVM execution options here for test process
   systemProperty 'java.awt.headless', true
+  // Specifying junitReport will trigger JUnit XML report generation
+  // in addition to standard console output (turned off by default)
+  junitReport = file("$buildDir/reports/junit-report.xml")
 }
 ```
 

src/main/kotlin/cursive/ClojurePlugin.kt

@@ -411,6 +411,7 @@ open class ClojureTestRunner @Inject constructor(val fileResolver: FileResolver)
 
   var classpath: FileCollection = SimpleFileCollection()
   var namespaces: Collection<String> = emptyList()
+  var junitReport: File? = null
 
   @TaskAction
   fun test() {
@@ -424,11 +425,13 @@ open class ClojureTestRunner @Inject constructor(val fileResolver: FileResolver)
 
     logger.info("Testing " + namespaces.joinToString(", "))
 
-    val namespaceList = namespaces.map { "'$it" }.joinToString(" ")
-    val script = listOf("(require 'clojure.test $namespaceList)",
-                        "(let [summary (clojure.test/run-tests $namespaceList)]",
-                        "  (System/exit (+ (:fail summary) (:error summary))))")
-        .joinToString("\n")
+    val namespaceVec = namespaces.joinToString(" ", "'[", "]")
+    val runnerInvocation = if (junitReport != null)
+      """(run-tests $namespaceVec "${junitReport?.absolutePath}")"""
+    else
+      """(run-tests $namespaceVec)"""
+
+    val script = "$testRunnerScript\n$runnerInvocation"
 
     //    println(script)
 
@@ -453,4 +456,9 @@ open class ClojureTestRunner @Inject constructor(val fileResolver: FileResolver)
 
     exec.build().start().waitForFinish().assertNormalExitValue()
   }
+
+  companion object {
+    val testRunnerScript =
+            ClojureTestRunner::class.java.getResourceAsStream("/cursive/test_runner.clj").bufferedReader().use { it.readText() }
+  }
 }

src/main/resources/cursive/test_runner.clj

@@ -0,0 +1,64 @@
+;
+; Copyright 2016 Colin Fleming
+;
+; Licensed under the Apache License, Version 2.0 (the "License")
+; you may not use this file except in compliance with the License.
+; You may obtain a copy of the License at
+;
+; http://www.apache.org/licenses/LICENSE-2.0
+;
+; Unless required by applicable law or agreed to in writing, software
+; distributed under the License is distributed on an "AS IS" BASIS,
+; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+; See the License for the specific language governing permissions and
+; limitations under the License.
+;
+
+(ns cursive.test-runner
+  (:require
+    [clojure.java.io]
+    [clojure.test]
+    [clojure.test.junit])
+  (:import (java.io File)))
+
+(defn- exit-code
+  [summary]
+  (if (clojure.test/successful? summary)
+    0
+    1))
+
+(let [plain-report clojure.test/report
+      junit-report clojure.test.junit/junit-report]
+  (defn- junit-logging-report-fn [plain-test-out]
+    (fn [m]
+      (junit-report m)
+      (binding [clojure.test/*test-out* plain-test-out]
+        (plain-report m)))))
+
+(defn- run-tests-with-junit-report
+  [^String junit-report-filename & ns-syms]
+
+  (when-let [report-dir (.getParentFile (File. junit-report-filename))]
+    (.mkdirs report-dir))
+
+  (let [plain-test-out clojure.test/*test-out*]
+    (with-open [xml-test-out (clojure.java.io/writer junit-report-filename)]
+      (binding [clojure.test/*test-out* xml-test-out
+                clojure.test.junit/junit-report (junit-logging-report-fn plain-test-out)]
+        (clojure.test.junit/with-junit-output
+          (apply clojure.test/run-tests ns-syms))))))
+
+(defn run-tests*
+  [ns-syms runner-fn]
+  (apply require ns-syms)
+  (->> ns-syms
+       (apply runner-fn)
+       (exit-code)
+       (System/exit)))
+
+(defn run-tests
+  ([ns-syms]
+   (run-tests* ns-syms clojure.test/run-tests))
+
+  ([ns-syms ^String junit-report-filename]
+   (run-tests* ns-syms (partial run-tests-with-junit-report junit-report-filename))))