From 76976791a78fd9f65f2f314eacf0fb5788f0247f Mon Sep 17 00:00:00 2001
From: Alexander Hulpke <hulpke@math.colostate.edu>
Date: Tue, 16 Oct 2018 18:49:25 +0200
Subject: [PATCH] Added test file

---
 tst/teststandard/opers/Normalizer.tst | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 tst/teststandard/opers/Normalizer.tst

diff --git a/tst/teststandard/opers/Normalizer.tst b/tst/teststandard/opers/Normalizer.tst
new file mode 100644
index 0000000000..6bc8b68ce0
--- /dev/null
+++ b/tst/teststandard/opers/Normalizer.tst
@@ -0,0 +1,11 @@
+gap> START_TEST("Normalizer.tst");
+gap> r:=Integers mod 4;;
+gap> maz:=[ [ [ 3, 1, 2, 1 ], [ 1, 2, 1, 1 ], [ 2, 1, 1, 3 ], [ 1, 1, 3, 2 ] ],
+>   [ [ 1, 1, 3, 2 ], [ 1, 3, 2, 3 ], [ 3, 2, 3, 3 ], [ 2, 3, 3, 1 ] ] ];;
+gap> G:=GL(4,r);;
+gap> U:=Group(maz*One(r));;
+gap> hom:=IsomorphismPermGroup(G);;
+gap> g:=Image(hom,G);;u:=Image(hom,U);;
+gap> Normalizer(g,u)=NormalizerViaRadical(g,u);
+true
+gap> STOP_TEST("Normalizer.tst", 1);