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,30 @@
+@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_space(ZZ, 2, 3)
+  m1 = M(ZZ[1 2 3; 3 4 5])
+  m2 = swap_rows(m1, 1, 2)
+  m3 = swap_cols(m1, 3, 1)
+  @test m2 == M(ZZ[3 4 5; 1 2 3])
+  @test m3 == M(ZZ[3 2 1; 5 4 3])
+end