Fixed unit tests for PHI.

Author: vsht

Tests/Shared/PHISharedObjects.test

@@ -64,28 +64,3 @@ DiagonalToU\[Rule]True,SUNN\[Rule]3],SUNN\[Rule]3]//Simplify",
 "{{ParticleMass[Fermion[14]], 0, 0}, {0, \
 ParticleMass[Fermion[13]], 0}, {0, 0, ParticleMass[Fermion[15]]}}"}
 })
-
-Tests`Shared`FMSharedObjectsFMBlockMatrixProduct =
-({
-{"FMSharedObjectsFMBlockMatrixProduct-ID1",
-"FMBlockMatrixProduct[a,b]", "FMBlockMatrixProduct[a, b]"},
-{"FMSharedObjectsFMBlockMatrixProduct-ID2",
-"FMBlockMatrixProduct[a,0,b]", "0"},
-{"FMSharedObjectsFMBlockMatrixProduct-ID3",
-"FMBlockMatrixProduct[{{a1,a2},{a3,a4}},{{b1},{b2}}]",
-"{{a1 . b1 + a2 . b2}, {a3 . b1 + a4 . b2}}"},
-{"FMSharedObjectsFMBlockMatrixProduct-ID4",
-"FMBlockMatrixProduct[{{0,SI[i]},{-SI[i],0}},{{1,0},{0,-1}}]",
-"{{0 . 1 + SI[i] . 0, 0 . 0 + SI[i] . (-1)}, {0 . 0 + (-SI[i]) . \
-1, 0 . (-1) + (-SI[i]) . 0}}"},
-{"FMSharedObjectsFMBlockMatrixProduct-ID5",
-"FMBlockMatrixProduct[{{0,SI[i]},{-SI[i],0}},{{PauliXi[I]},{\
-PauliXi[I]}}]",
-"{{0 . PauliXi[I] + SI[i] . PauliXi[I]}, {0 . PauliXi[I] + \
-(-SI[i]) . PauliXi[I]}}"},
-{"FMSharedObjectsFMBlockMatrixProduct-ID6",
-"FMBlockMatrixProduct[{PauliEta[-I],PauliEta[-I]},{{0,SI[i]},{-SI[\
-i],0}},{{PauliXi[I]},{PauliXi[I]}}]",
-"PauliEta[-I] . (0 . PauliXi[I] + (-SI[i]) . PauliXi[I]) + \
-PauliEta[-I] . (0 . PauliXi[I] + SI[i] . PauliXi[I])"}
-})

Tests/Shared/Shared.mt

@@ -5,12 +5,12 @@
 	Copyright (C) 2015-2018 Vladyslav Shtabovenko
 *)
 
-(* :Summary:  Unit tests for FeynOnium									*)
+(* :Summary:  Unit tests for Shared functions								*)
 
 (* ------------------------------------------------------------------------ *)
 
 
-If [!StringQ[FeynCalc`$FeynOniumDirectory],
+If [!StringQ[FeynCalc`$PHIDirectory],
 	BeginPackage["FeynCalc`"];
 	FCDeclareHeader@ToFileName[{$FeynCalcDirectory, "AddOns",
 	"FeynOnium"}, "FeynOnium.m"];
@@ -20,7 +20,7 @@ If [!StringQ[FeynCalc`$FeynOniumDirectory],
 ]
 
 ClearAll[tests];
-tests = FileNames["*.test",FileNameJoin[{$FeynOniumDirectory, "Tests", "Shared"}]]
+tests = FileNames["*.test",FileNameJoin[{$PHIDirectory, "Tests", "Shared"}]]
 Get/@tests;
 
 Map[Test[ToExpression[(#[[2]])],ToExpression[(#[[3]])],TestID->#[[1]]]&,