From cf53696a692a0033e802070ad64128824720be79 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Mon, 9 Sep 2013 14:50:21 +0200
Subject: Add ClearAllTensors to all tests

---
 Tests/Kranc.mt     | 4 ++++
 Tests/McLachlan.mt | 5 +++++
 2 files changed, 9 insertions(+)

(limited to 'Tests')

diff --git a/Tests/Kranc.mt b/Tests/Kranc.mt
index c867e67..3736b62 100644
--- a/Tests/Kranc.mt
+++ b/Tests/Kranc.mt
@@ -36,6 +36,7 @@ $evolveCalc = {
 (****************************************************************)
 
 Test[
+        ClearAllTensors[];
 	CreateKrancThornTT[{}, "TestThorns", "CreateThorn", Calculations -> {}]
 	,
 	Null
@@ -78,6 +79,7 @@ Test[
          dot[pi]  -> IfThen[alpha>0, Euc[ui,uj] PD[phi,li,lj], 2 Euc[ui,uj] PD[phi,li,lj]]
        }}},
 
+     ClearAllTensors[];
     (* PD = PDstandard2nd *)
     
     CreateKrancThornTT[
@@ -103,6 +105,7 @@ Test[
 (****************************************************************)
 
 Test[
+  ClearAllTensors[];
   CreateKrancThornTT[
     $groups, "TestThorns", "SimpleWave",
     PartialDerivatives -> $derivatives,
@@ -118,6 +121,7 @@ Test[
   Module[
     {eulerCons, evolvedGroups, nonevolvedGroups, declaredGroups, declaredGroupNames, groups},
 
+    ClearAllTensors[];
     Map[DefineTensor, {Den, S, En, rho, v, p}];
 
     evolvedGroups = Map[CreateGroupFromTensor, {Den, S[uj], En}];
diff --git a/Tests/McLachlan.mt b/Tests/McLachlan.mt
index 55da4b1..2a7864b 100644
--- a/Tests/McLachlan.mt
+++ b/Tests/McLachlan.mt
@@ -1445,6 +1445,7 @@ CreateKrancThornTT [groups, "TestThorns", thorn,
 *)
 
 Test[
+  ClearAllTensors[];
   createCode[4, False, True , 3, 1, "BSSN", True, False];
   ,
   Null
@@ -1453,6 +1454,7 @@ Test[
 ]
 
 Test[
+  ClearAllTensors[];
   createCode[4, False, True , 3, 1, "BSSN", False, False];
   ,
   Null
@@ -1461,6 +1463,7 @@ Test[
 ]
 
 Test[
+  ClearAllTensors[];
   createCode[4, False, True , 3, 1, "BSSN", True, True];
   ,
   Null
@@ -1469,6 +1472,7 @@ Test[
 ]
 
 Test[
+  ClearAllTensors[];
   createCode[4, False, True , 3, 1, "BSSN", True, False, DGFE -> True];
   ,
   Null
@@ -1477,6 +1481,7 @@ Test[
 ]
 
 Test[
+  ClearAllTensors[];
   createCode[4, False, True , 3, 1, "BSSN", True, False, CaKernel -> True];
   ,
   Null
-- 
cgit v1.2.3