Add a test in tst/testbugfix that would have failed prior to fix

gap-system · Oct 26, 2017 · e5389a6 · e5389a6
1 parent 577451a
commit e5389a6
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tst/testbugfix/2017-10-23-MagmaWith.tst b/tst/testbugfix/2017-10-23-MagmaWith.tst
@@ -0,0 +1,10 @@
+# Issue related to MagmaWith[One|Inverses] with family specified
+#
+gap> MagmaWithOne(CollectionsFamily(PermutationsFamily), [(1,2),(1,2,3)]);
+Group([ (1,2), (1,2,3) ])
+gap> Elements(last);
+[ (), (2,3), (1,2), (1,2,3), (1,3,2), (1,3) ]
+gap> MagmaWithInverses(CollectionsFamily(PermutationsFamily), [(1,2),(1,2,3)]);
+Group([ (1,2), (1,2,3) ])
+gap> Elements(last);
+[ (), (2,3), (1,2), (1,2,3), (1,3,2), (1,3) ]