/usr/share/gap/pkg/openmath/tst/testall.g is in gap-openmath 11.2.0+ds-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | TestMyPackage := function( pkgname )
local pkgdir, testfiles, testresult, ff, fn;
LoadPackage( pkgname );
pkgdir := DirectoriesPackageLibrary( pkgname, "tst" );
# Arrange testfiles as required
testfiles := [ "openmath02.tst", "openmath03.tst", "test_new" ];
testresult:=true;
for ff in testfiles do
fn := Filename( pkgdir, ff );
Print("#I Testing ", fn, "\n");
if not Test( fn, rec(compareFunction := "uptowhitespace") ) then
testresult:=false;
fi;
od;
if testresult then
Print("#I No errors detected while testing package ", pkgname, "\n");
else
Print("#I Errors detected while testing package ", pkgname, "\n");
fi;
end;
# Set the name of the package here
TestMyPackage( "openmath" );
# An example of an alternative approach (without keeping test files)
# path:=Directory(
# Concatenation(PackageInfo(pkgname)[1].InstallationPath, "/doc") );
# tst:=ExtractExamples( path, "manual.xml", ["../PackageInfo.g"], "Chapter" );
# RunExamples(tst, rec(compareFunction := "uptowhitespace") );
|