Add two more tests

ianhinder · Mar 11, 2014 · 5617563 · 5617563
1 parent 88effd9
commit 5617563
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Tests/TestxTensor.m b/Tests/TestxTensor.m
@@ -198,14 +198,14 @@
 
 test[MakeExplicit[pd[Uu[ua], la]], {nd[Uu1, 1] + nd[Uu2, 2] + nd[Uu3, 3]}];
 
-(* test[Simplify[MakeExplicit[pd[MatrixInverse[Tdd[ua, ub]] Tdd[lb, lc], ld]]], {0,
+test[Simplify[MakeExplicit[pd[MatrixInverse[Tdd[ua, ub]] Tdd[lb, lc], ld] /. nd_?(! xTensorQ[#] &)[x_] :> x]], {0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
   0}];
 
-test[FullSimplify[MakeExplicit[pd[MatrixInverse[Tdd[ua, ub]], ld] Tdd[lb, lc]] +
-   MakeExplicit[MatrixInverse[Tdd[ua, ub]] pd[Tdd[lb, lc], ld]]],
+test[FullSimplify[MakeExplicit[pd[MatrixInverse[Tdd[ua, ub]], ld] Tdd[lb, lc] /. nd_?(! xTensorQ[#] &)[x_] :> x] +
+   MakeExplicit[MatrixInverse[Tdd[ua, ub]] pd[Tdd[lb, lc], ld] /. nd_?(! xTensorQ[#] &)[x_] :> x]],
  {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-  0, 0}]; *)
+  0, 0}];
 
 reportResults[];