RunTests.m: Allow selection of test suite file to run

Cannot run individual tests yet

1 files changed, 10 insertions, 3 deletions

diff --git a/Tests/RunTests.m b/Tests/RunTests.m
index 5d749ac..d54c480 100755
--- a/Tests/RunTests.m
+++ b/Tests/RunTests.m
@@ -1,4 +1,4 @@
-#!/usr/bin/env math -script
+#!/usr/bin/env MathematicaScript -script
 
 SetOptions[ $Output, FormatType -> OutputForm ];
 
@@ -18,12 +18,19 @@ Needs["Errors`"];
 Needs["KrancThorn`"];
 (* (\* Needs["Profile`"]; *\) *)
 
-SetDebugLevel[DebugQuiet];
+(* SetDebugLevel[DebugQuiet]; *)
 
-tests = {
+alltests = {
   "Kranc",
   "McLachlan"
 };
 
+args = Drop[$ScriptCommandLine, 1];
+
+If[Length[args] > 0,
+   If[StringMatchQ[args[[1]], "*.mt"],
+      tests = {StringReplace[args[[1]], ".mt" -> ""]}],
+   tests = alltests];
+
 (Print["\n"]; TestRun[#<>".mt", Loggers -> {VerbosePrintLogger[]}, TestRunTitle -> #]) & /@ tests;
 Print[];