move more things around

1 files changed, 13 insertions, 0 deletions

diff --git a/src/main/scala/org/perl8/test/harness/TestHarness.scala b/src/main/scala/org/perl8/test/harness/TestHarness.scala
new file mode 100644
index 0000000..2d152d8
--- /dev/null
+++ b/src/main/scala/org/perl8/test/harness/TestHarness.scala
@@ -0,0 +1,13 @@
+package org.perl8.test.harness
+
+import org.perl8.test.Test
+
+object TestHarness {
+  def main (args: Array[String]) {
+    val className = args(0)
+    val loader = classOf[Test].getClassLoader
+    val test = loader.loadClass(className).newInstance.asInstanceOf[Test]
+    val exitCode = test.run
+    sys.exit(exitCode)
+  }
+}