Added test examples to whip up coverage rate

gap-system · Oct 31, 2020 · 54b0733 · 54b0733
1 parent 6a42bbf
commit 54b0733
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/tst/teststandard/opers/Lattice.tst b/tst/teststandard/opers/Lattice.tst
@@ -0,0 +1,10 @@
+gap> START_TEST("Lattice.tst");
+
+#
+gap> g:=PerfectGroup(IsPermGroup,30720,10);;
+gap> l:=LowLayerSubgroups(g,2);;
+gap> [Length(l),Sum(l,Size)];
+[ 41, 80896 ]
+
+#
+gap> STOP_TEST("Lattice.tst",1);
diff --git a/tst/teststandard/permgrp.tst b/tst/teststandard/permgrp.tst
@@ -121,5 +121,17 @@ gap> l:=[];;for i in it do Add(l,i);od;Length(l);
 gap> it:=DescSubgroupIterator(g:skip:=20);;
 gap> l:=[];;for i in it do Add(l,i);od;
 
+# conjugator
+gap> w:=WreathProduct(SymmetricGroup(6),Group((1,2)));;
+gap> d:=DerivedSubgroup(w);;
+gap> d:=DerivedSubgroup(d);;
+gap> a:=Image(Embedding(w,3),(1,2));;
+gap> hom:=ConjugatorAutomorphism(w,a);;
+gap> hom:=AsGroupGeneralMappingByImages(hom);;
+gap> HasIsConjugatorAutomorphism(hom);
+false
+gap> IsConjugatorAutomorphism(hom);
+true
+
 #
 gap> STOP_TEST( "permgrp.tst", 1);