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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#############################################################################
##
#W grpconst.tst GAP Library Hans Ulrich Besche
##
#H @(#)$Id: grpconst.tst,v 4.6.2.4 2005/08/29 14:50:35 gap Exp $
##
#Y Copyright (C) 1999, Lehrstuhl D fuer Mathematik, RWTH Aachen, Germany
##
## Exclude from testall.g: why?
##
gap> START_TEST("$Id: grpconst.tst,v 4.6.2.4 2005/08/29 14:50:35 gap Exp $");
gap> if LoadPackage( "grpconst" )=fail then
#I ------ The AutPGrp package version: 1.1 -------
#I -- Computing automorphism groups of p-groups --
-----------------------------------------------
---- Algorithms to construct finite groups ----
----- Hans Ulrich Besche and Bettina Eick -----
-----------------------------------------------
--------------- See ?GrpConst -----------------
-----------------------------------------------
> Print("\n\n",
> "*** Since you do not have the `grpconst' package installed, ***\n",
> "*** you will get some error messages. They should be ignored. ***\n\n\n");
> fi;
gap> ConstructAndTestAllGroups := function( size )
> local grps;
> grps := ConstructAllGroups( size );
> if Length( grps ) <> NumberSmallGroups( size ) then
> Print( "wrong number of groups of size ", size, "\n" );
> fi;
> if Set( List( grps, IdGroup ) ) <>
> List( [ 1 .. NumberSmallGroups( size ) ], x -> [ size, x ] ) then
> Print( "wrong ids for the groups of size ", size, "\n" );
> fi;
> end;
function( size ) ... end
gap> ConstructAndTestAllGroups( 96 );;
gap> ConstructAndTestAllGroups( 648 );;
gap> ConstructAndTestAllGroups( 840 );;
gap> ConstructAndTestAllGroups( 1560 );;
gap> ConstructAndTestAllGroups( 1800 );;
gap> UnloadSmallGroupsData();
gap> STOP_TEST( "grpconst.tst", 0 );
#############################################################################
##
#E
|
