diff --git a/test/perm_groups.jl b/test/perm_groups.jl index deb0160..54ae803 100644 --- a/test/perm_groups.jl +++ b/test/perm_groups.jl @@ -134,4 +134,12 @@ end end end + + @testset "group acting on itself" begin + G = PermGroup(perm"(1,2,3,4)", perm"(3,4)") + S = gens(G) + t = Transversal(one(G), S, *) + st = SchreierTransversal(one(G), S, *) + @test all(t[g] == st[g] for g in G) + end end