From 7688d0cc46c0ca99f2345f1bf71ec9cc85d83b3d Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Tue, 10 Sep 2013 17:14:55 +0200
Subject: Kranc.mt: Add ODE test case

---
 Tests/Kranc.mt | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'Tests')

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 *)
-- 
cgit v1.2.3