diff --git a/test/Groups/pcgroup.jl b/test/Groups/pcgroup.jl index 0fcdd0e49427..6b294282d0ba 100644 --- a/test/Groups/pcgroup.jl +++ b/test/Groups/pcgroup.jl @@ -91,10 +91,10 @@ end set_relative_order!(c, 2, 3) set_power!(c, 1, [2 => 1]) gg = pc_group(c) - @test letters(gg[1]^5*gg[2]^-4) == [1, 2, 2] - @test letters(gg[1]^5*gg[2]^4) == [1, 2] # all positive exp + @test letters(gg[1]^5*gg[2]^-4) == [1, 2] + @test letters(gg[1]^5*gg[2]^4) == [1] # all positive exp @test letters(gg[1]^-5*gg[2]^-7) == [1, 2, 2] # all negative exp - @test letters(gg[1]^2*gg[2]^3) == [] # both identity elements + @test letters(gg[1]^2*gg[2]^3) == [2] # both identity elements # finite polycyclic subgroup gg = pc_group(symmetric_group(4)) @@ -102,4 +102,4 @@ end @test letters(G[1]^2) == [2, 2] @test letters(G[1]^2*G[2]^3*G[3]^3) == [2, 2, 3, 4] @test letters(G[1]^-2*G[2]^-3*G[3]^-3) == [2, 3, 4] -end \ No newline at end of file +end