Test some warnings

Author: kshyatt

test/amd/svd.jl

@@ -40,6 +40,9 @@ include(joinpath("..", "utilities.jl"))
             Sd = svd_vals(A, alg)
             @test ROCArray(diagview(S)) ≈ Sd
             # ROCArray is necessary because norm of ROCArray view with non-unit step is broken
+            if alg isa ROCSOLVER_QRIteration
+                @test_warn "GPU_QRIteration does not accept any keyword arguments" svd_compact!(copy!(Ac, A), (U, S, Vᴴ), alg; bad = "bad")
+            end
         end
     end
 end
@@ -79,6 +82,10 @@ end
             @test Sc === Sc2
             @test ROCArray(diagview(S)) ≈ Sc
             # ROCArray is necessary because norm of ROCArray view with non-unit step is broken
+            if alg isa ROCSOLVER_QRIteration
+                @test_warn "GPU_QRIteration does not accept any keyword arguments" svd_full!(copy!(Ac, A), (U, S, Vᴴ), alg; bad = "bad")
+                @test_warn "GPU_QRIteration does not accept any keyword arguments" svd_vals!(copy!(Ac, A), Sc, alg; bad = "bad")
+            end
         end
     end
 end

test/cuda/svd.jl

@@ -40,6 +40,9 @@ include(joinpath("..", "utilities.jl"))
             Sd = svd_vals(A, alg)
             @test CuArray(diagview(S)) ≈ Sd
             # CuArray is necessary because norm of CuArray view with non-unit step is broken
+            if alg isa CUSOLVER_QRIteration
+                @test_warn "GPU_QRIteration does not accept any keyword arguments" svd_compact!(copy!(Ac, A), (U, S, Vᴴ), alg; bad = "bad")
+            end
         end
     end
 end
@@ -80,8 +83,10 @@ end
             @test Sc === Sc2
             @test CuArray(diagview(S)) ≈ Sc
             # CuArray is necessary because norm of CuArray view with non-unit step is broken
-        end
-        @testset "algorithm $alg" for alg in algs
+            if alg isa CUSOLVER_QRIteration
+                @test_warn "GPU_QRIteration does not accept any keyword arguments" svd_full!(copy!(Ac, A), (U, S, Vᴴ), alg; bad = "bad")
+                @test_warn "GPU_QRIteration does not accept any keyword arguments" svd_valsl!(copy!(Ac, A), Sc, alg; bad = "bad")
+            end
         end
     end
 end