Quelle  teststabs2.tst   Sprache: unbekannt

#############################################################################
##
#A  teststabs2.tst          ferret package                Chris Jefferson
##
##
gap> START_TEST("ferret package: teststabs2.tst");
gap> LoadPackage("ferret",false);
true
gap> ReadPackage("ferret", "tst/test_functions.g");
true
gap> overload := FerretOverloadsEnabled();;
gap> SetInfoLevel(InfoFerretOverloads, 9);
gap> EnableFerretOverloads(false);
gap> # Functions which GAP implements inefficiently
gap> for i in [2..9] do
>      for j in [1..50] do
>        # Skip biggest groups.
>        maxgrpsize := Factorial(8)/2;
>        repeat
>          g := RandomGroupUpToSize(GlobalMersenneTwister, i);
>        until Size(g) < maxgrpsize;
>        for act in [OnSetsSets, OnDirectedGraph, OnEdgeColouredDirectedGraph, OnSetsTuples] do
>          CheckStab(g, RandomObj(GlobalMersenneTwister, i, act), act);
>        od;
>     od;
>   od;
gap> EnableFerretOverloads(overload);
gap> STOP_TEST( "teststabs2.tst", 10000 );
ferret package: teststabs2.tst
#############################################################################
##
#E