Add test junit formatter

2 files changed, 12 insertions, 4 deletions

diff --git a/test/res/test.lisp b/test/res/test.lisp
index f3b870c..eea180c 100644
--- a/test/res/test.lisp
+++ b/test/res/test.lisp
@@ -24,9 +24,10 @@
 
 (debuglog "============")
 (debuglog "Running tests")
-(import :ntest)
-(ntest.test "Funny test" (seq
+(import :test)
+(test.test "Funny test" (seq
     (debuglog "Funny test running")
-    (debuglog ((ntest.fail "Test failed")))))
+    ((test.assert false "False failed"))
+    ((test.fail "Test failed"))))
 
 
diff --git a/test/src/TestLisp.kt b/test/src/TestLisp.kt
index fa90468..1f0c424 100644
--- a/test/src/TestLisp.kt
+++ b/test/src/TestLisp.kt
@@ -1,9 +1,12 @@
 import moe.nea.lisp.LispExecutionContext
 import moe.nea.lisp.LispParser
+import moe.nea.lisp.TestResultFormatter
 import java.io.File
+import javax.xml.stream.XMLOutputFactory
 
 object T
 
+
 fun main() {
     val otherP = LispParser.parse(File(T::class.java.getResource("/test.lisp")!!.file))
     val executionContext = LispExecutionContext()
@@ -13,5 +16,9 @@ fun main() {
         LispParser.parse(File(T::class.java.getResource("/secondary.lisp")!!.file))
     )
     val bindings = executionContext.genBindings()
-    println("The results are in: ${executionContext.runTests(otherP, bindings)}")
+    val testResults = executionContext.runTests(otherP, "Test", bindings)
+    val w = XMLOutputFactory.newFactory()
+        .createXMLStreamWriter(File("TestOutput.xml").bufferedWriter())
+    TestResultFormatter.write(w, listOf(testResults))
+    w.close()
 }