2 files changed, 40 insertions, 0 deletions
diff --git a/Tests/Kranc.mt b/Tests/Kranc.mt
new file mode 100644
index 0000000..301f95e
--- /dev/null
+++ b/Tests/Kranc.mt
@@ -0,0 +1,14 @@
+
+(* Mathematica Test File *)
+
+(****************************************************************)
+(* CreateThorn *)
+(****************************************************************)
+
+Test[
+	CreateKrancThornTT[{}, "TestThorns", "CreateThorn", Calculations -> {}]
+	,
+	Null
+	,
+	TestID->"CreateThorn"
+]
diff --git a/Tests/RunTests.m b/Tests/RunTests.m
new file mode 100755
index 0000000..99cae33
--- /dev/null
+++ b/Tests/RunTests.m
@@ -0,0 +1,26 @@
+#!/usr/bin/env math -script
+
+SetOptions[ $Output, FormatType -> OutputForm ];
+
+<< MUnitRunner`;
+
+(****************************************************************)
+(* Initialise *)
+(****************************************************************)
+
+Kranc`KrancDirectory = FileNameJoin[{Directory[],".."}];
+
+$Path = Join[$Path,
+  {Kranc`KrancDirectory <> "/Tools/CodeGen",
+   Kranc`KrancDirectory <> "/Tools/MathematicaMisc",
+   Kranc`KrancDirectory <> "/Tools/PirahaPeg"}];
+Needs["Errors`"];
+Needs["KrancThorn`"];
+(* (\* Needs["Profile`"]; *\) *)
+
+tests = {
+		"Kranc"
+};
+
+(Print["\n"]; TestRun[#<>".mt", Loggers -> {VerbosePrintLogger[]}, TestRunTitle -> #]) & /@ tests;
+Print[];