Quelle  testvalgrind.tst   Sprache: unbekannt

#############################################################################
##
#A  testvalgrind.tst        Ferret package             Chris Jefferson
##
## This is a purposefully small test, so we can run it through valgrind
## on a frequent basis and see if anything obvious falls out.

gap> START_TEST("ferret package: testvalgrind.tst");

# Note that you may use comments in the test file
# and also separate parts of the test by empty lines

# First load the package without banner (the banner must be suppressed to
# avoid reporting discrepancies in the case when the package is already
# loaded)
gap> LoadPackage("ferret",false);
true
gap> overload := FerretOverloadsEnabled();;
gap> SetInfoLevel(InfoFerretOverloads, 9);
gap> EnableFerretOverloads(false);
gap> ReadPackage("ferret", "tst/test_functions.g");
true
gap> CheckGroup(Group((1,2)));
true
gap> CheckGroup(Group((1,2),(3,4)));
true
gap> g1 := Group((1,4)(2,5)(3,6), (1,2)(4,5), (2,3)(5,6));;
gap> CheckGroup(g1);
true
gap> CheckGroup(makeRowColumnSymmetry(2,3));
true
gap> CheckStab(SymmetricGroup(5), [], OnSets);
true
gap> CheckStab(SymmetricGroup(5), [2,3], OnSets);
true
gap> CheckStab(g1, [], OnSets);
true
gap> CheckStab(g1, [1,2,3], OnSets);
true
gap> CheckStab(g1, [1,6], OnSets);
true
gap> CheckStab(makeRowColumnSymmetry(2,3), [1], OnSets);
true
gap> CheckStab(makeRowColumnSymmetry(2,3), [1,2], OnSets);
true
gap> CheckSmallRandomPrimitives();
true
gap> EnableFerretOverloads(overload);
gap> STOP_TEST( "testvalgrind.tst", 10000 );
ferret package: testvalgrind.tst
#############################################################################
##
#E