Add tests

Author: mtfishman

test/test_factorizations.jl

@@ -39,6 +39,9 @@ elts = (Float64, ComplexF64)
 
     Q, R = qr(A, (2, 1), (4, 3); full = true)
     @test A ≈ contract(labels_A, Q, (labels_Q..., :q), R, (:q, labels_R...))
+
+    Q, R = qr(A, Val(2), Val(2); full = true)
+    @test A ≈ contract((:a, :b, :c, :d), Q, (:a, :b, :q), R, (:q, :c, :d))
 end
 
 @testset "Compact QR ($T)" for T in elts

test/test_matrixfunctions.jl

@@ -14,9 +14,12 @@ using Test: @test, @testset
                     TensorAlgebra.$f(a, (3, 2), (4, 1)),
                     TensorAlgebra.$f(a, biperm((3, 2, 4, 1), Val(2))),
                 )
-                fa′ = reshape($f(reshape(permutedims(a, (3, 2, 4, 1)), (4, 4))), (2, 2, 2, 2))
+                local fa′ = reshape($f(reshape(permutedims(a, (3, 2, 4, 1)), (4, 4))), (2, 2, 2, 2))
                 @test fa ≈ fa′
             end
+            fa = TensorAlgebra.$f(a, Val(2), Val(2))
+            fa′ = reshape($f(reshape(a, (4, 4))), (2, 2, 2, 2))
+            @test fa ≈ fa′
         end
     end
 end