delete old basics.jl test file

Author: shashi

test/basics.jl

@@ -16,7 +16,33 @@ let
     @test sparse(jactestmeta(f, [1], [2])) == sparse([], [], true, 1, 1)
 
     g(y,x) = y[:] .= x .+ 1
-    #g(y,x) = y .= x .+ 1 -- memmove
+    #g(y,x) = y .= x .+ 1 -- memove
 
-    @test sparse(jactestmeta(g, [1], [2])) == sparse([1], [1], true)
+    @test sparse(jactestmeta(g, [1], [2])[1]) == sparse([1], [1], true)
+    # test path of unsafe_copy from Input to Output
+    @test sparsity!((y,x) -> y .= x, [1,2,3], [1,2,3]) == sparse([1,2,3], [1,2,3], true)
+    # test path of unsafe_copy from Input to an intermediary
+    @test sparsity!((y,x) -> y[1:2] .= x[2:3], [1,2,3], [1,2,3]) == sparse([1,2],[2,3],true, 3,3)
+
+    using LinearAlgebra, SparsityDetection
+
+    function testsparse!(out, x)
+        A = Tridiagonal(x[2:end], x, x[1:end-1])
+        mul!(out, A, x)
+    end
+    x = [1:4;]; out = similar(x);
+    @test sparsity!(testsparse!, out, x) == sparse([1,2,1,2,3,2,3,4,3,4],
+                                                   [1,1,2,2,2,3,3,3,4,4], true)
+end
+
+@testset "BLAS" begin
+    function f(out,in)
+        A = rand(length(in), length(in))
+        out .= A * in
+        return nothing
+    end
+
+    x = [1.0:10;]
+    out = similar(x)
+    @test all(sparsity!(f, out, x) .== 1)
 end

test/jacobian.jl

@@ -1,6 +1,6 @@
 include("common.jl")
 
-@testset "Basics" begin include("jacobian.jl") end
+@testset "Jacobian Sparsity" begin include("jacobian.jl") end
 @testset "Hessian sparsity" begin include("hessian.jl") end
 @testset "Paraboloid example" begin include("paraboloid.jl") end