Columbo aufrufen.g Download desUnknown {[0] [0] [0]}Datei anzeigen
##############################################################################
##
#W testing.g IdRel Package Chris Wensley
#W & Anne Heyworth
#Y Copyright (C) 1999-2025, Chris Wensley and Anne Heyworth
##
LoadPackage( "idrel" );
pkgname := "idrel";
pkgdir := DirectoriesPackageLibrary( pkgname, "tst" );
testfiles :=
[ "rws.tst", "logrws.tst", "monpoly.tst",
"modpoly.tst", "idrels.tst", "simsek.tst" ];
testresult := true;
for ff in testfiles do
fn := Filename( pkgdir, ff );
Print( "#I Testing ", fn, "\n" );
if not Test( fn, rec(compareFunction := "uptowhitespace",
showProgress := true ) ) 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;
[ 0.93Quellennavigators
]
