From af3e7cd1e1ef17b1cab99b8636887cd37cf614a7 Mon Sep 17 00:00:00 2001
From: Erik Paemurru <computeralgebra@runbox.com>
Date: Fri, 18 Oct 2024 16:17:03 +0200
Subject: [PATCH] Add tests

---
 test/GrpAb/Elem.jl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/test/GrpAb/Elem.jl b/test/GrpAb/Elem.jl
index 2e33680942..f767a82dec 100644
--- a/test/GrpAb/Elem.jl
+++ b/test/GrpAb/Elem.jl
@@ -6,12 +6,14 @@
     a = @inferred FinGenAbGroupElem(G, N)
     @test parent(a) == G
     @test a.coeff == N
+    @test a[begin:end] == [0, 0, 0]
 
     G = @inferred abelian_group([3, 0])
     N = FlintZZ[1 1]
     a = @inferred FinGenAbGroupElem(G, N)
     @test @inferred parent(a) == G
     @test a.coeff == N
+    @test a[begin:end] == [1, 1]
 
     N = matrix(FlintZZ, 1, 2, [ 1, 1 ])
     a = @inferred G(N)
@@ -21,6 +23,7 @@
     a = @inferred G(N)
     @test @inferred parent(a) == G
     @test a.coeff == transpose(N)
+    @test a[begin:end] == [1, 1]
   end
 
   @testset "Generators" begin