Added tests for adjoints

Author: theogf

Project.toml

@@ -21,6 +21,7 @@ julia = "1.0"
 [extras]
 Random = "9a3f8284-a2c9-5f02-9a11-845980a1fd5c"
 Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+FiniteDifferences = "26cc04aa-876d-5657-8c51-4c34ba976000"
 
 [targets]
-test = ["Random", "Test"]
+test = ["Random", "Test", "FiniteDifferences"]

test/runtests.jl

@@ -11,5 +11,6 @@ include("test_transform.jl")
 include("test_distances.jl")
 include("test_kernels.jl")
 include("test_generic.jl")
+include("test_adjoints.jl")
     #include("types.jl")
 end

test/test_adjoints.jl

@@ -0,0 +1,25 @@
+using Zygote
+using FiniteDifferences
+using KernelFunctions
+using Distances
+using Test
+
+x = rand(5)
+y = rand(5)
+
+@testset "Testing Zygote adjoints" begin
+gzeucl = first(Zygote.gradient(xy->evaluate(Euclidean(),xy[1],xy[2]),[x,y]))
+gzsqeucl =  first(Zygote.gradient(xy->evaluate(SqEuclidean(),xy[1],xy[2]),[x,y]))
+gzdotprod = first(Zygote.gradient(xy->evaluate(KernelFunctions.DotProduct(),xy[1],xy[2]),[x,y]))
+
+FDM = central_fdm(5,1)
+
+gfeucl = collect(first(FiniteDifferences.grad(FDM,xy->evaluate(Euclidean(),xy[1],xy[2]),(x,y))))
+gfsqeucl = collect(first(FiniteDifferences.grad(FDM,xy->evaluate(SqEuclidean(),xy[1],xy[2]),(x,y))))
+gfdotprod =collect(first(FiniteDifferences.grad(FDM,xy->evaluate(KernelFunctions.DotProduct(),xy[1],xy[2]),(x,y))))
+
+@test all(gzeucl .≈ gfeucl)
+@test all(gzsqeucl .≈ gfsqeucl)
+@test all(gzdotprod .≈ gfdotprod)
+
+end