Tests for copyto and triangular mats

Author: kshyatt

src/testsuite/linalg.jl

@@ -4,8 +4,21 @@ function test_linalg(AT)
             @test compare(adjoint, AT, rand(Float32, 32, 32))
             @test compare(transpose, AT, rand(Float32, 32, 32))
             @test compare(transpose!, AT, Array{Float32}(undef, 32, 32), rand(Float32, 32, 32))
+            @test compare(transpose!, AT, Array{Float32}(undef, 128, 32), rand(Float32, 32, 128))
+        end
+        
+        @testset "copyto! for triangular" begin
+            ga = Array{Float32}(undef, 128, 128) 
+            gb = AT{Float32}(undef, 128, 128)
+            rand!(gb)
+            copyto!(ga, UpperTriangular(gb))
+            @test ga == Array(collect(UpperTriangular(gb)))
+            ga = Array{Float32}(undef, 128, 128) 
+            gb = AT{Float32}(undef, 128, 128)
+            rand!(gb)
+            copyto!(ga, LowerTriangular(gb))
+            @test ga == Array(collect(LowerTriangular(gb)))
         end
-
         @testset "permutedims" begin
             @test compare(x -> permutedims(x, (2, 1)), AT, rand(Float32, 2, 3))
             @test compare(x -> permutedims(x, (2, 1, 3)), AT, rand(Float32, 4, 5, 6))
@@ -26,13 +39,5 @@ function test_linalg(AT)
                 @test ishermitian(aherm)
             end
         end
-        @testset "transpose fallback" begin
-            m = 64
-            n = 128
-            a = randn(m,n)
-            b = zeros(n,m)
-            transpose!(b, a)
-            @test b == transpose(a)
-        end
     end
 end