Add test for julia/Matrix.jl

Author: albinahlback

test/Rings-test.jl

@@ -1,4 +1,5 @@
 include("julia/Integers-test.jl")
+include("julia/Matrix-test.jl")
 include("broadcasting-test.jl")
 
 # artificially low cutoffs for testing purposes

test/julia/Matrix-test.jl

@@ -0,0 +1,39 @@
+@testset "Julia.Matrix.manipulation" begin
+  r, c = 1, 2
+  A = zero_matrix(Int, r, c)
+  A[1, :] = [10, -2]
+  B = Int[10 -2]
+
+  @test A == B
+  @test number_of_rows(A) == r
+  @test number_of_columns(A) == c
+end
+
+@testset "Julia.Matrix.array_creation" begin
+  M = matrix_ring(ZZ, 2)
+  m1 = M(ZZ[1 2; 3 4])
+  m2 = M(ZZ[1 0; 0 1])
+  arr = Array(M, 2)
+  arr[1] = deepcopy(m1)
+  arr[2] = deepcopy(m2)
+  @test arr[1] == m1
+  @test arr[2] == m2
+end
+
+@testset "Julia.Matrix.permutations" begin
+  M = matrix_ring(ZZ, 2)
+  m0 = M([1 2; 3 4])
+  m1 = M([2 3; 4 5])
+  m2 = M([3 4; 5 6])
+  m3 = M([4 5; 6 7])
+  m = Matrix{elem_type(M)}(undef, 2, 2)
+  Rm = Matrix{elem_type(M)}(undef, 2, 2)
+  Cm = Matrix{elem_type(M)}(undef, 2, 2)
+  m[1, 1], m[1, 2], m[2, 1], m[2, 2] = m0, m1, m2, m3
+  Rm[1, 1], Rm[1, 2], Rm[2, 1], Rm[2, 2] = m2, m3, m0, m1
+  Cm[1, 1], Cm[1, 2], Cm[2, 1], Cm[2, 2] = m1, m0, m3, m2
+  rm = swap_rows(m, 2, 1)
+  cm = swap_cols(m, 1, 2)
+  @test rm == Rm
+  @test cm == Cm
+end