run_test.jl

using JLD, SparseArrays, Test, Random

include("src/DensityConsistency.jl")
using .DensityConsistency

@testset "Exactness on trees" begin
    dir = "test/Ising_trees/"
    ls = readdir(dir)
    filenames = replace.(ls[findall(occursin.("model",ls))], "model.jld"=>"")
    @testset "Ising open-chains $i" for i in 1:length(filenames)
        model = load(string(dir,filenames[i],"model.jld"));
        true_moments = load(string(dir,filenames[i],"moments.jld"),"moments");
        N = length(model["h"])
        βvec = [0.1,0.3]
        @testset "β $β" for β in βvec
            psi = DensityConsistency.IsingFG(N,β*model["h"],β*sparse(model["J"]), :EnergyFun);
            ϕ , res, it, epsv = DensityConsistency.density_consistency(psi,N,verbose = false, epsconv = 1e-10,ρ = 0.9)
            @test isapprox(true_moments[β][1], ϕ.µt, atol = 1e-7)
        end
    end
end

@testset "Equivalence of Ising Constructors" begin
    dir = "test/random_graphs/"
    ls = readdir(dir)
    filenames = replace.(ls[findall(occursin.("model",ls))], "model.jld"=>"")
    model = load(string(dir,filenames[3],"model.jld"));
    N = length(model["h"])
    β = 0.2
    psiF = DensityConsistency.IsingFG(N,β*model["h"],β*sparse(model["J"]), :EnergyFun);
    psiPI = DensityConsistency.IsingFG(N,β*model["h"],β*sparse(model["J"]), :IsingPair);
    ϕF , res, it, epsv = DensityConsistency.density_consistency(psiF,N,verbose = false, epsconv = 1e-10, ρ = 0.9)
    ϕI , res, it, epsv = DensityConsistency.density_consistency(psiPI,N,verbose = false, epsconv = 1e-10, ρ = 0.9)
    #@testset "fields $x" for x in fieldnames(typeof(ϕF))
    #    @test isapprox(getfield(ϕF,x),getfield(ϕI,x),atol = 1e-9)
    #end
    @test isapprox(ϕF.µt,ϕI.µt,atol = 1e-7)
end