TestPackage function to run a standard test for a package

Author: Alexander Konovalov

lib/test.gd

@@ -12,4 +12,5 @@ DeclareGlobalFunction("ParseTestFile");
 DeclareGlobalFunction("RunTests");
 DeclareGlobalFunction("Test");
 DeclareGlobalFunction("TestDirectory");
+DeclareGlobalFunction("TestPackage");
 

lib/test.gi

@@ -760,3 +760,42 @@ InstallGlobalFunction( "TestDirectory", function(arg)
 
   return testTotal;
 end);
+
+
+InstallGlobalFunction( "TestPackage", function(pkgname)
+local testfile, str;
+if not IsBound( GAPInfo.PackagesInfo.(pkgname) ) then
+    Print("#I  No package with the name ", pkgname, " is available\n");
+    return;
+elif LoadPackage( pkgname ) = fail then
+    Print( "#I ", pkgname, " package can not be loaded\n" );
+    return;
+elif not IsBound( GAPInfo.PackagesInfo.(pkgname)[1].TestFile ) then
+    Print("#I No standard tests specified in ", pkgname, " package, version ",
+          GAPInfo.PackagesInfo.(pkgname)[1].Version,  "\n");
+    return;
+else
+    testfile := Filename( DirectoriesPackageLibrary( pkgname, "" ), 
+                          GAPInfo.PackagesInfo.(pkgname)[1].TestFile );
+    str:= StringFile( testfile );
+    if not IsString( str ) then
+        Print( "#I Test file `", testfile, "' for package `", pkgname, 
+        " version ", GAPInfo.PackagesInfo.(pkgname)[1].Version, " is not readable\n" );
+        return;
+    fi;
+    if EndsWith(testfile,".tst") then
+        if Test( testfile, rec(compareFunction := "uptowhitespace") ) then
+            Print( "#I  No errors detected while testing package ", pkgname,
+                   " version ", GAPInfo.PackagesInfo.(pkgname)[1].Version, 
+                   "\n#I  using the test file `", testfile, "'\n");
+        else
+            Print( "#I  Errors detected while testing package ", pkgname, 
+                   " version ", GAPInfo.PackagesInfo.(pkgname)[1].Version, 
+                   "\n#I  using the test file `", testfile, "'\n");
+        fi;
+    elif not READ( testfile ) then
+        Print( "#I Test file `", testfile, "' for package `", pkgname,
+        " version ", GAPInfo.PackagesInfo.(pkgname)[1].Version, " is not readable\n" );
+    fi;
+fi;
+end);