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") );
|
