Resolving issues which came up for the test files because of the new structure of loading the package

Author: Leo

tst/no_solver.tst

@@ -1,14 +1,16 @@
 gap> OldHeLPInfoLevel := InfoLevel(HeLP_Info);;
 gap> SetInfoLevel(HeLP_Info, 1);
 
-gap> HeLP_ZC(CyclicGroup(6));
-#I  Since the given group is nilpotent the Zassenhaus Conjecture holds by a result of Al Weiss.
- true
-
 gap> C := CharacterTable("M22");;
 gap> HeLP_WagnerTest(12, [ [ [1], [1], [1,0], [0,0,1], [-3,3,2,3,-4] ] ],C);
 [  ]
 
+gap> HeLP_WriteTrivialSolution(C, 6);
+[ [ [ 1 ], [ 1 ], [ 0, 0, 1 ] ] ]
+
+gap> HeLP_MultiplicitiesOfEigenvalues(Irr(C)[3], 6, HeLP_sol[6][1]);
+[ 7, 8, 7, 8, 7, 8 ]
+
 gap> HeLP_Reset();
 gap> HeLP_sol;
  [ [ [ [ 1 ] ] ] ]

tst/testall.g

@@ -4,7 +4,7 @@ LoadPackage( pkgname );
 pkgdir := DirectoriesPackageLibrary( pkgname, "tst" );
 
 testresult := true;
-if LoadPackage("NormalizInterface") <> fail then
+if TestPackageAvailability("NormalizInterface") = true then
   Print("normaliz found\n");
   fn := Filename( pkgdir, "yes_normaliz.tst" );
   Print("#I  Testing ", fn, "\n");
@@ -13,7 +13,7 @@ if LoadPackage("NormalizInterface") <> fail then
   fi;
 fi;
 
-if Filename(DirectoriesSystemPrograms(), "zsolve") <> fail then
+if TestPackageAvailability("4ti2Interface") = true and Filename(DirectoriesSystemPrograms(), "zsolve") <> fail then
   Print("4ti2 found\n");
   fn := Filename( pkgdir, "yes_4ti2.tst" );
   Print("#I  Testing ", fn, "\n");
@@ -22,7 +22,7 @@ if Filename(DirectoriesSystemPrograms(), "zsolve") <> fail then
   fi;
 fi;
 
-if Filename(DirectoriesSystemPrograms(), "zsolve") = fail and LoadPackage("NormalizInterface") = fail then
+if Filename(DirectoriesSystemPrograms(), "zsolve") = fail and not TestPackageAvailability("NormalizInterface") = true then
   fn := Filename( pkgdir, "no_solver.tst" );
   Print("No solver found\n");
   if not Test( fn, rec(compareFunction := "uptowhitespace") ) then