Add output capture and more test reports

2 files changed, 34 insertions, 5 deletions

diff --git a/test/res/test.lisp b/test/res/test.lisp
index 79d259d..9def7f3 100644
--- a/test/res/test.lisp
+++ b/test/res/test.lisp
@@ -25,11 +25,10 @@
 (debuglog "============")
 (debuglog "Running tests")
 (import :test)
-(test.test "Funny test" (seq
-    (debuglog "Funny test running")
-    ((test.assert false "False failed"))
-    ((test.assert-eq "funny" "unfunny"))
-    ((test.fail "Test failed"))))
+(test.test "unfunny test" (seq
+    (debuglog "Funny test not running")
+    ((test.assert-eq "unfunny" "funny"))
+))
 
 (test.test "Test equality" (seq
     ((test.assert-eq false false))
diff --git a/test/src/TestMain.kt b/test/src/TestMain.kt
new file mode 100644
index 0000000..fc95780
--- /dev/null
+++ b/test/src/TestMain.kt
@@ -0,0 +1,30 @@
+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 TestMain {
+    @JvmStatic
+    fun main(args: Array<String>) {
+        val reportFile = System.getProperty("test.report")
+        val modulesToTest = System.getProperty("test.suites").split(":")
+        val modulePath = System.getProperty("test.imports").split(":")
+        val executionContext = LispExecutionContext()
+        executionContext.setupStandardBindings()
+        modulePath.forEach {
+            executionContext.registerModule(it, LispParser.parse(File(T::class.java.getResource("/$it.lisp")!!.file)))
+        }
+        val allResults = modulesToTest.map {
+            executionContext.runTests(
+                LispParser.parse(File(T::class.java.getResource("/$it.lisp")!!.file)),
+                it,
+            )
+        }
+        val w = XMLOutputFactory.newFactory()
+            .createXMLStreamWriter(File(reportFile).bufferedWriter())
+        TestResultFormatter.write(w, allResults)
+        w.close()
+
+    }
+}
\ No newline at end of file