RunTests.m: Automatically find all test files and report a summary of…

… failed files at the end
ianhinder · Mar 18, 2014 · cf8339c · cf8339c
1 parent a4bde23
commit cf8339c
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/Tests/RunTests.m b/Tests/RunTests.m
@@ -23,21 +23,21 @@
 
 (* SetDebugLevel[DebugQuiet]; *)
 
-alltests = {
-  "CodeGen",
-  "Kranc",
-  "McLachlan",
-  "Tiling"
-};
+alltests = FileBaseName/@FileNames["*.mt"];
 
 args = Drop[$ScriptCommandLine, 1];
 
 If[Length[args] > 0,
-   If[StringMatchQ[args[[1]], "*.mt"],
-      tests = {StringReplace[args[[1]], ".mt" -> ""]}],
-   tests = alltests];
+  tests = FileBaseName/@Select[args, StringMatchQ[#, "*.mt"] &],
+  tests = alltests];
 
-(Print["\n"]; TestRun[#<>".mt", Loggers -> {VerbosePrintLogger[]}, TestRunTitle -> #]) & /@ tests;
+results = (Print["\n"]; TestRun[#<>".mt", Loggers -> {VerbosePrintLogger[]}, TestRunTitle -> #]) & /@ tests;
 Print[];
+Print[];
+MapThread[Print[If[#2,"P","F"]," ",#1] &, {tests, results}];
+Print[];
+
+If[And@@results, Print["All tests passed"],
+  Print["Tests failed in ", StringJoin@Riffle[Pick[tests, Not/@results],", "]]];
 
 (* ReportFunctionCounts[]; *)