add tests checking that comlpetions with 0s work

2017-09-10 21:43:09 +02:00 · 2017-09-10 21:43:09 +02:00 · d14c4ca0e7
parent 61bed0f3d0
commit d14c4ca0e7
1 changed files with 9 additions and 1 deletions
--- a/test/runtests.jl
+++ b/test/runtests.jl
@ -44,7 +44,6 @@ using Nemo
      F = FreeGroup(3)
      S = gens(F)
      append!(S, [inv(s) for s in S])
-      S = unique(S)

      basis, sizes = Groups.generate_balls(S, F(), radius=4)
      d = GroupRings.reverse_dict(basis)
@ -58,6 +57,15 @@ using Nemo
      B = GroupRing(F, basis, d, pm)
      @test A == B

+      RF = GroupRing(F, basis, d, create_pm(basis, d, check=false))
+      nz1 = contnz(RF.pm)
+      @test nz1 > 1000
+
+      GroupRings.complete!(RF)
+      nz2 = contnz(RF.pm)
+      @test nz2 > nz1
+      @test nz2 = 45469
+
      g = B()
      s = S[2]
      g[s] = 1