1gap> START_TEST("ctblmoli.tst");
2
3#
4# the following test comes from https://github.com/gap-system/gap/issues/300
5# this used to give a wrong value for ValueMolienSeries(m,0) of 26/27 instead
6# of the correct value 1
7#
8gap> g:=SymplecticGroup(6,3);;
9gap> h:=Stabilizer(g,Z(3)*[1,0,0,0,0,0]);;
10gap> t:=CharacterTable(h);;
11gap> chi:=Irr(t)[7];;
12gap> chi[1];
139
14gap> m:=MolienSeries(t,chi);;
15gap> List( [ 0 .. 20 ], i -> ValueMolienSeries( m, i ) );
16[ 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 5, 0, 0 ]
17gap> List( [ 0,3 .. 48 ], i -> ValueMolienSeries( m, i ) );
18[ 1, 0, 0, 0, 2, 0, 5, 0, 13, 3, 33, 15, 87, 58, 203, 178, 472 ]
19
20#
21gap> STOP_TEST( "ctblmoli.tst", 1);
22