Separate parameter tests

Author: devmotion

test/basekernels/constant.jl

@@ -26,6 +26,7 @@
         @test metric(ConstantKernel()) == KernelFunctions.Delta()
         @test metric(ConstantKernel(c=2.0)) == KernelFunctions.Delta()
         @test repr(k) == "Constant Kernel (c = $(c))"
+        test_params(kc, ([c],))
         test_ADs(c->ConstantKernel(c=first(c)), [c])
     end
 end

test/basekernels/exponential.jl

@@ -40,6 +40,7 @@
         @test KernelFunctions.iskroncompatible(k) == true
         test_ADs(γ -> GammaExponentialKernel(gamma=first(γ)), [γ], ADs = [:ForwardDiff, :ReverseDiff])
         @test_broken "Zygote gradient given γ"
+        test_params(k, ([γ],))
         #Coherence :
         @test GammaExponentialKernel(γ=1.0)(v1,v2) ≈ SqExponentialKernel()(v1,v2)
         @test GammaExponentialKernel(γ=0.5)(v1,v2) ≈ ExponentialKernel()(v1,v2)

test/basekernels/fbm.jl

@@ -24,4 +24,6 @@
     @test repr(k) == "Fractional Brownian Motion Kernel (h = $(h))"
     test_ADs(FBMKernel, ADs = [:ReverseDiff])
     @test_broken "Tests failing for kernelmatrix(k, x) for ForwardDiff and Zygote"
+
+    test_params(k, ([h],))
 end

test/basekernels/maha.jl

@@ -13,4 +13,6 @@
     @test repr(k) == "Mahalanobis Kernel (size(P) = $(size(P)))"
     # test_ADs(P -> MahalanobisKernel(P), P)
     @test_broken "Nothing passes (problem with Mahalanobis distance in Distances)"
+
+    test_params(k, (P,))
 end

test/basekernels/matern.jl

@@ -16,6 +16,7 @@
         @test repr(k) == "Matern Kernel (ν = $(ν))"
         # test_ADs(x->MaternKernel(nu=first(x)),[ν])
         @test_broken "All fails (because of logabsgamma for ForwardDiff and ReverseDiff and because of nu for Zygote)"
+        test_params(k, ([ν],))
     end
     @testset "Matern32Kernel" begin
         k = Matern32Kernel()

test/basekernels/periodic.jl

@@ -9,4 +9,5 @@
     @test repr(k) == "Periodic Kernel, length(r) = $(length(r)))"
     # test_ADs(r->PeriodicKernel(r =exp.(r)), log.(r), ADs = [:ForwardDiff, :ReverseDiff])
     @test_broken "Undefined adjoint for Sinus metric, and failing randomly for ForwardDiff and ReverseDiff"
+    test_params(k, (r,))
 end

test/basekernels/piecewisepolynomial.jl

@@ -34,4 +34,6 @@
     @test repr(k) == "Piecewise Polynomial Kernel (v = $(v), size(maha) = $(size(maha)))"
     # test_ADs(maha-> PiecewisePolynomialKernel(v=2, maha = maha), maha)
     @test_broken "Nothing passes (problem with Mahalanobis distance in Distances)"
+
+    test_params(k, (maha,))
 end

test/basekernels/polynomial.jl

@@ -13,6 +13,7 @@
         @test metric(LinearKernel(c=2.0)) == KernelFunctions.DotProduct()
         @test repr(k) == "Linear Kernel (c = 0.0)"
         test_ADs(x->LinearKernel(c=x[1]), [c])
+        test_params(LinearKernel(; c=c), ([c],))
     end
     @testset "PolynomialKernel" begin
         k = PolynomialKernel()
@@ -27,5 +28,6 @@
         @test metric(PolynomialKernel(d=3.0,c=2.0)) == KernelFunctions.DotProduct()
         # test_ADs(x->PolynomialKernel(d=x[1], c=x[2]),[2.0,  c])
         @test_broken "All, because of the power"
+        test_params(PolynomialKernel(; d=x[1], c=x[2]), ([x[1]], [x[2]]))
     end
 end

test/basekernels/rationalquad.jl

@@ -14,6 +14,7 @@
         @test metric(RationalQuadraticKernel(α=2.0)) == SqEuclidean()
         @test repr(k) == "Rational Quadratic Kernel (α = $(α))"
         test_ADs(x->RationalQuadraticKernel(alpha=x[1]),[α])
+        test_params(k, ([α],))
     end
     @testset "GammaRationalQuadraticKernel" begin
         k = GammaRationalQuadraticKernel()
@@ -30,5 +31,6 @@
         @test metric(GammaRationalQuadraticKernel(γ=2.0, α=3.0)) == SqEuclidean()
         # test_ADs(x->GammaRationalQuadraticKernel(α=x[1], γ=x[2]), [a, 2.0])
         @test_broken "All (problem with power operation)"
+        test_params(GammaRationalQuadraticKernel(; α=x[1], γ=x[2]), ([x[1]], [x[2]]))
     end
 end

test/kernels/kernelproduct.jl

@@ -67,4 +67,6 @@
         end
     end
     test_ADs(x->SqExponentialKernel() * LinearKernel(c= x[1]), rand(1), ADs = [:ForwardDiff, :ReverseDiff, :Zygote])
+
+    test_params(k1 * k2, (k1, k2))
 end