kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-12-26 02:20:30 +01:00
Code Issues Releases Wiki Activity

additional tests for WreathProducts

Browse Source
This commit is contained in:
kalmarek 2019-01-03 02:43:48 +01:00
parent e418695283
commit 2a359f52b1
1 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
test/WreathProd-tests.jl
View File

@ -22,6 +22,8 @@
@test B3.P == S_3 @test B3.P == S_3
@test B3(aa, b) == Groups.WreathProductElem(aa, b) @test B3(aa, b) == Groups.WreathProductElem(aa, b)
w = B3(aa, b)
@test B3(w) == w
@test B3(b) == Groups.WreathProductElem(B3.N(), b) @test B3(b) == Groups.WreathProductElem(B3.N(), b)
@test B3(aa) == Groups.WreathProductElem(aa, S_3()) @test B3(aa) == Groups.WreathProductElem(aa, S_3())
@ -79,19 +81,23 @@
@test y*inv(x) == B4((1,2,1,0), perm"(1,4,3)(2)") @test y*inv(x) == B4((1,2,1,0), perm"(1,4,3)(2)")
@test (x*y)^6 == ((x*y)^2)^3
end end
@testset "Misc" begin @testset "Iteration" begin
B3 = Groups.WreathProduct(AdditiveGroup(GF(3)), S_3) B3_a = Groups.WreathProduct(AdditiveGroup(GF(3)), S_3)
@test order(B3) == 3^3*6 @test order(B3_a) == 3^3*6
@test collect(B3) isa Vector{ @test collect(B3_a) isa Vector{
WreathProductElem{3, AddGrpElem{AbstractAlgebra.gfelem{Int}}, Int}} WreathProductElem{3, AddGrpElem{AbstractAlgebra.gfelem{Int}}, Int}}
B3 = Groups.WreathProduct(MultiplicativeGroup(GF(3)), S_3) B3_m = Groups.WreathProduct(MultiplicativeGroup(GF(3)), S_3)
@test order(B3) == 2^3*6 @test order(B3_m) == 2^3*6
@test collect(B3) isa Vector{ @test collect(B3_m) isa Vector{
WreathProductElem{3, MltGrpElem{AbstractAlgebra.gfelem{Int}}, Int}} WreathProductElem{3, MltGrpElem{AbstractAlgebra.gfelem{Int}}, Int}}
@test length(Set([B3_a, B3_m, B3_a])) == 2
Wr = WreathProduct(PermutationGroup(2),PermutationGroup(4)) Wr = WreathProduct(PermutationGroup(2),PermutationGroup(4))
elts = collect(Wr) elts = collect(Wr)
@ -103,4 +109,17 @@
@test all(inv(g*h) == inv(h)*inv(g) for g in elts for h in elts) @test all(inv(g*h) == inv(h)*inv(g) for g in elts for h in elts)
end end
@testset "Misc" begin
B3_a = Groups.WreathProduct(AdditiveGroup(GF(3)), S_3)
@test string(B3_a) == "Wreath Product of The additive group of Finite field F_3 by Permutation group over 3 elements"
@test string(B3_a(perm"(1,3)")) == "([0,0,0]≀(1,3))"
B3_m = Groups.WreathProduct(MultiplicativeGroup(GF(3)), S_3)
@test string(B3_m) == "Wreath Product of The multiplicative group of Finite field F_3 by Permutation group over 3 elements"
@test string(B3_m(perm"(1,3)")) == "([1,1,1]≀(1,3))"
end
end end