Kranc.mt: Add ODE test case

1 files changed, 19 insertions, 0 deletions

diff --git a/Tests/Kranc.mt b/Tests/Kranc.mt
index 3736b62..2daa6a5 100644
--- a/Tests/Kranc.mt
+++ b/Tests/Kranc.mt
@@ -30,6 +30,25 @@ $evolveCalc = {
 
 
 
+Test[
+  ClearAllTensors[];
+  CreateKrancThornTT[
+    Append[$groups,{"ode_group", {a, b}}],
+    "TestThorns", "SimpleWaveODE",
+    PartialDerivatives -> $derivatives,
+    DeclaredGroups     -> {"evolved_group"},
+    ODEGroups -> {"ode_group"},
+    Calculations       -> {
+      $initialSineCalc /. ((Equations -> l) :>
+                           (Equations -> Join[l, {a->0,b->1}])),
+      $evolveCalc /. ((Equations -> l) :>
+                      (Equations -> Join[l, {dot[a] -> b, dot[b] -> -a}]))}]
+  ,
+  Null
+  ,
+  TestID->"SimpleWaveODE"
+]
+
 
 (****************************************************************)
 (* CreateThorn *)