FIX: WreathProductElementList

Add a test file for the bugfix

tst/testinstall/opers/ListWreathProductElement.tst

@@ -241,5 +241,19 @@ gap> list := ListWreathProductElement(G, x);;
 gap> x = WreathProductElementList(G, list);
 true
 
+#
+# Generic Wreath Product : Bugfix for immutable lists
+#
+
+gap> K := FreeGroup("x", "y");;
+gap> AssignGeneratorVariables(K);;
+gap> H := SymmetricGroup(3);;
+gap> W := WreathProduct(K, H);;
+gap> l := [x*y, x, y, (1,2,3)];;
+gap> MakeImmutable(l);;
+gap> w := WreathProductElementList(W, l);;
+gap> l = [x*y, x, y, (1,2,3)]; # was previously l = w
+true
+
 #
 gap> STOP_TEST("ListWreathProductElement.tst", 1);