1#######################################################################
2InstallGlobalFunction(NumSgpsInfo,
3        function(n)
4  SetInfoLevel(InfoNumSgps, n);
5  Info(InfoNumSgps,1, "Info Level for InfoNumSgps is set to ",n, "\n");
6end);
7#######################################################################
8InstallGlobalFunction(NumSgpsTest,
9        function()
10  SetInfoLevel(InfoNumSgps, 0);
11  Test(Concatenation(PackageInfo("numericalsgps")[1]!.
12          InstallationPath, "/tst/testall.tst"),rec(compareFunction:="uptowhitespace"));
13end);
14
15