diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-09 14:50:21 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-09 14:50:21 +0200 |
commit | cf53696a692a0033e802070ad64128824720be79 (patch) | |
tree | 6b240eb9e141ae6865391a26fc7e5c7bd50d0142 /Tests/Kranc.mt | |
parent | 4b87d4a37151e0fcdb978a520909b4d2ad154ea9 (diff) |
Add ClearAllTensors to all tests
Diffstat (limited to 'Tests/Kranc.mt')
-rw-r--r-- | Tests/Kranc.mt | 4 |
1 files changed, 4 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}]; |