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,39 @@ InstallGlobalFunction( "TestDirectory", function(arg)
 
   return testTotal;
 end);
+
+
+InstallGlobalFunction( "TestPackage", function(pkgname)
+local testfile, file, 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 the installed version of the ", pkgname, " package\n");
+    return;
+else
+    testfile := GAPInfo.PackagesInfo.(pkgname)[1].TestFile;
+    file:= Filename( DirectoriesPackageLibrary( pkgname, "" ), testfile );
+    str:= StringFile( file );
+    if not IsString( str ) then
+        Print( "#I Test file `", testfile, "' for package `", pkgname, " is not readable\n" );
+        return;
+    fi;
+    if PositionSublist( str, "gap> START_TEST(" ) = fail then
+        if not READ( file ) then
+            Print( "#I Test file `", testfile, "' for package `", pkgname, " is  not readable\n" );
+        fi;
+    else
+        if not Test( file, rec(compareFunction := "uptowhitespace") ) then
+            Print( "#I  Errors detected while testing package ", pkgname, "\n",
+                   "#I  using the test file `", testfile, "'\n");
+        else
+            Print( "#I  No errors detected while testing package ", pkgname, "\n",
+                   "#I  using the test file `", testfile, "'\n");
+        fi;
+    fi;
+fi;
+end);