From d3f5e45073bb32d75332cdfc3c2f22ee2c5b857c Mon Sep 17 00:00:00 2001
From: Max Horn <max@quendi.de>
Date: Wed, 28 Sep 2016 14:30:47 +0200
Subject: [PATCH] Add simple test for LatticeByCyclicExtension

---
 .../opers/LatticeByCyclicExtension.tst        | 20 +++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 tst/testinstall/opers/LatticeByCyclicExtension.tst

diff --git a/tst/testinstall/opers/LatticeByCyclicExtension.tst b/tst/testinstall/opers/LatticeByCyclicExtension.tst
new file mode 100644
index 0000000000..291a6881d5
--- /dev/null
+++ b/tst/testinstall/opers/LatticeByCyclicExtension.tst
@@ -0,0 +1,20 @@
+gap> START_TEST("LatticeByCyclicExtension.tst");
+
+#
+gap> G:=SmallGroup(625,1);
+<pc group of size 625 with 4 generators>
+gap> A:=AutomorphismGroup(G);
+<group of size 500 with 7 generators>
+gap> fun:=g->IsInt(4/Size(g));;
+gap> LatticeByCyclicExtension(A);
+<subgroup lattice of <group of size 500 with 7 generators>, 12 classes, 
+12 subgroups>
+gap> LatticeByCyclicExtension(A, fun);
+<subgroup lattice of <group of size 500 with 7 generators>, 3 classes, 
+3 subgroups, restricted under further condition l!.func>
+gap> LatticeByCyclicExtension(A, [fun,fun]);
+<subgroup lattice of <group of size 500 with 7 generators>, 3 classes, 
+3 subgroups, restricted under further condition l!.func>
+
+#
+gap> STOP_TEST("LatticeByCyclicExtension.tst", 1);