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);