1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#!/usr/bin/env MathematicaScript -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`"]; *\) *)
(* SetDebugLevel[DebugQuiet]; *)
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[];
|
