Skip to content

Commit

Permalink
Improvements for tests
Browse files Browse the repository at this point in the history
  • Loading branch information
lkdvos committed Nov 14, 2024
1 parent 6973205 commit d00bad5
Showing 1 changed file with 17 additions and 17 deletions.
34 changes: 17 additions & 17 deletions test/abstracttensor/blocktensor.jl
Original file line number Diff line number Diff line change
Expand Up @@ -127,8 +127,8 @@ end
@testset "Basic linear algebra: test via conversion" begin
W = V1 V2 V3 V4 V5
for T in (Float32, ComplexF64)
t = TensorMap(rand, T, W)
t2 = TensorMap(rand, T, W)
t = rand(T, W)
t2 = rand(T, W)
@test norm(t, 2) norm(convert(TensorMap, t), 2)
@test dot(t2, t) dot(convert(TensorMap, t2), convert(TensorMap, t))
α = rand(T)
Expand Down Expand Up @@ -166,7 +166,7 @@ end

@testset "Permutations: test via conversion" begin
W = V1 V2 V3 V4 V5
t = Tensor(rand, ComplexF64, W)
t = rand(ComplexF64, W)
a = convert(TensorMap, t)
for k in 0:5
for p in permutations(1:5)
Expand All @@ -181,8 +181,8 @@ end
end

@testset "Full trace: test self-consistency" begin
t = Tensor(rand, ComplexF64, V1 V2' V2 V1')
t2 = permute(t, (1, 2), (4, 3))
t = rand(ComplexF64, V1 V2' V2 V1')
t2 = permute(t, ((1, 2), (4, 3)))
s = @constinferred tr(t2)
@test conj(s) tr(t2')
if !isdual(V1)
Expand All @@ -200,35 +200,35 @@ end
end

@testset "Partial trace: test self-consistency" begin
t = Tensor(rand, ComplexF64, V1 V2' V3 V2 V1' V3')
t = rand(ComplexF64, V1 V2' V3 V2 V1' V3')
@tensor t2[a, b] := t[c, d, b, d, c, a]
@tensor t4[a, b, c, d] := t[d, e, b, e, c, a]
@tensor t5[a, b] := t4[a, b, c, c]
@test t2 t5
end

@testset "Trace: test via conversion" begin
t = Tensor(rand, ComplexF64, V1 V2' V3 V2 V1' V3')
t = rand(ComplexF64, V1 V2' V3 V2 V1' V3')
@tensor t2[a, b] := t[c, d, b, d, c, a]
@tensor t3[a, b] := convert(TensorMap, t)[c, d, b, d, c, a]
@test t3 convert(TensorMap, t2)
end

@testset "Trace and contraction" begin
t1 = Tensor(rand, ComplexF64, V1 V2 V3)
t2 = Tensor(rand, ComplexF64, V2' V4 V1')
t1 = rand(ComplexF64, V1 V2 V3)
t2 = rand(ComplexF64, V2' V4 V1')
t3 = t1 t2
@tensor ta[a, b] := t1[x, y, a] * t2[y, b, x]
@tensor tb[a, b] := t3[x, y, a, y, b, x]
@test ta tb
end

@testset "Tensor contraction: test via conversion" begin
A1 = TensorMap(randn, ComplexF64, V1' * V2', V3')
A2 = TensorMap(randn, ComplexF64, V3 * V4, V5)
rhoL = TensorMap(randn, ComplexF64, V1, V1)
rhoR = TensorMap(randn, ComplexF64, V5, V5)' # test adjoint tensor
H = TensorMap(randn, ComplexF64, V2 * V4, V2 * V4)
A1 = randn(ComplexF64, V1' * V2', V3')
A2 = randn(ComplexF64, V3 * V4, V5)
rhoL = randn(ComplexF64, V1, V1)
rhoR = randn(ComplexF64, V5, V5)' # test adjoint tensor
H = randn(ComplexF64, V2 * V4, V2 * V4)
@tensor HrA12[a, s1, s2, c] :=
rhoL[a, a'] * conj(A1[a', t1, b]) * A2[b, t2, c'] * rhoR[c', c] * H[s1, s2, t1, t2]
@show typeof(convert(TensorMap, rhoL)),
Expand All @@ -250,9 +250,9 @@ end
W1 = V1 V2 V3
W2 = V4 V5
for T in (Float64, ComplexF64)
t1 = TensorMap(rand, T, W1, W1)
t2 = TensorMap(rand, T, W2, W2)
t = TensorMap(rand, T, W1, W2)
t1 = rand(T, W1, W1)
t2 = rand(T, W2, W2)
t = rand(T, W1, W2)
@test t1 * (t1 \ t) t
@test (t / t2) * t2 t
# @test t1 \ one(t1) ≈ inv(t1)
Expand Down

0 comments on commit d00bad5

Please sign in to comment.