diff options
Diffstat (limited to 'Tests')
| -rw-r--r-- | Tests/Kranc.mt | 4 | ||||
| -rw-r--r-- | Tests/McLachlan.mt | 5 |
2 files changed, 9 insertions, 0 deletions
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 |