|
TestMyPackage := function( pkgname )
local pkgdir, testfiles, testresult, ff, fn;
LoadPackage( pkgname );
pkgdir := DirectoriesPackageLibrary( pkgname, "tst" );
# Arrange chapters as required
testfiles := [
"bugfix.tst",
"tst_regular13system.tst",
"tst_segrevariety.tst",
"tst_hermitianspreads.tst",
"tst_andrebruckbose.tst",
"tst_titsovoid.tst",
"tst_finingorbits.tst",
"tst_enumerators.tst"
];
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");
QUIT_GAP(0);
else
Print("#I Errors detected while testing package ", pkgname, "\n");
QUIT_GAP(1);
fi;
end;
# Set the name of the package here
Print("EXecuting this file\n");
TestMyPackage( "fining" );
QUIT_GAP(0);
[ Dauer der Verarbeitung: 0.19 Sekunden
(vorverarbeitet)
]
|
