|
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( "forms" );
[ Dauer der Verarbeitung: 0.17 Sekunden
(vorverarbeitet)
]
|
