Add isequal for TruncationStrategys

Author: sanderdemeyer

src/algorithms.jl

@@ -539,3 +539,6 @@ macro check_size(x, sz, size = :size)
         end
     )
 end
+
+# Check equality of two `TruncationStrategy`s
+isequal(t1::T1, t2::T2) where {T1, T2 <: TruncationStrategy} = (T1 == T2) && all([getfield(t1, f) == getfield(t2, f) for f in fieldnames(typeof(t1))])

test/algorithms.jl

@@ -60,3 +60,22 @@ end
         @test @constinferred(select_algorithm(svd_compact!, A, $alg)) === QRIteration()
     end
 end
+
+@testset "Truncation equivalencies" begin
+    truncs = [notrunc(),
+    truncrank(4),
+    truncrank(5),
+    truncfilter(x -> x > 0),
+    truncfilter(x -> x > 1e-4),
+    trunctol(; atol = 0),
+    trunctol(; atol = 1e-4),
+    truncerror(; atol = 0),
+    truncerror(; atol = 1e-4),
+    truncrank(4) & truncfilter(x -> x > 0),
+    truncrank(4) & truncrank(5)    
+    ]
+
+    for (i1, t1) in enumerate(truncs), (i2, t2) in enumerate(truncs)
+        @test (i1 == i2) ? t1 == t2 : t1 != t2
+    end
+end