Quelle  testing.g   Sprache: unbekannt

##############################################################################
##
#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;