11using Test
22using BlockSparseArrays
3- using BlockSparseArrays: BlockSparseArray, svd, notrunc, truncbelow, truncdim, BlockDiagonal
3+ using BlockSparseArrays: BlockSparseArray, svd, BlockDiagonal
44using BlockArrays
55using LinearAlgebra: LinearAlgebra, Diagonal, svdvals
66using Random
@@ -58,8 +58,8 @@ test_svd(a, usv)
5858
5959# blocksparse
6060# -----------
61- @testset " ($m , $n ) BlockDiagonal {$T }" for ((m, n), T) in
62- Iterators. product (blockszs, eltypes)
61+ @testset " ($m , $n ) BlockSparseMatrix {$T }" for ((m, n), T) in
62+ Iterators. product (blockszs, eltypes)
6363 a = BlockSparseArray {T} (m, n)
6464 for i in LinearAlgebra. diagind (blocks (a))
6565 I = CartesianIndices (blocks (a))[i]
@@ -72,12 +72,4 @@ test_svd(a, usv)
7272 usv = svd (a)
7373 # TODO : `BlockDiagonal * Adjoint` errors
7474 test_svd (a, usv)
75- @test usv. U isa BlockDiagonal
76- @test usv. Vt isa BlockDiagonal
77- @test usv. S isa BlockVector
78-
79- test_svd (a, usv2)
80- @test usv. U isa BlockDiagonal
81- @test usv. Vt isa BlockDiagonal
82- @test usv. S isa BlockVector
8375end
0 commit comments