# This file is a part of JuliaFEM.
# License is MIT: see https://github.com/JuliaFEM/JuliaFEM.jl/blob/master/LICENSE.md

using JuliaFEM
using JuliaFEM.Preprocess
using JuliaFEM.Test

@testset "read inp file" begin
    model = open(parse_abaqus, Pkg.dir("JuliaFEM")*"/geometry/3d_beam/palkki.inp")
    @test length(model["nodes"]) == 298
    @test length(model["elements"]) == 120
    @test length(model["elsets"]["Body1"]) == 120
    @test length(model["nsets"]["SUPPORT"]) == 9
    @test length(model["nsets"]["LOAD"]) == 9
    @test length(model["nsets"]["TOP"]) == 83
end

@testset "test read element section" begin
    data = """*ELEMENT, TYPE=C3D10, ELSET=BEAM
    1,       243,       240,       191,       117,       245,       242,       244,
    1,         2,       196
    2,       204,       199,       175,       130,       207,       208,       209,
    3,         4,       176
    """
    data = split(data, "\n")
    model = Dict{AbstractString, Any}()
    model["nsets"] = Dict{AbstractString, Vector{Int}}()
    model["elsets"] = Dict{AbstractString, Vector{Int}}()
    model["elements"] = Dict{Integer, Any}()
    parse_section(model, data, :ELEMENT, 1, 5, Val{:ELEMENT})
    @test length(model["elements"]) == 2
    @test model["elements"][1]["connectivity"] == [243, 240, 191, 117, 245, 242, 244, 1, 2, 196]
    @test model["elements"][2]["connectivity"] == [204, 199, 175, 130, 207, 208, 209, 3, 4, 176]
    @test model["elsets"]["BEAM"] == [1, 2]
end

@testset "test unknown handler warning message" begin
    fn = tempname()
    fid = open(fn, "w")
    testdata = """*ELEMENT2, TYPE=C3D10, ELSET=Body1
    1,       243,       240,       191,       117,       245,       242,       244,
    1,         2,       196
    """
    write(fid, testdata)
    close(fid)
    model = open(parse_abaqus, fn)
    # empty model expected, parser doesn't know what to do with unknown section
    @test length(model) == 0
end

#= TODO: fix test
@testset "test that reader throws error when dimension information of element is missing" begin
    #   *ELEMENT, TYPE=neverseenbefore, ELSET=Body1
    data = """
    1,       243,       240,       191,       117,       245,       242,       244,
    1,         2,       196
    """
    model = Dict()
    header = Dict("section"=>"ELEMENT", "options" => Dict("TYPE" => "neverseenbefore", "ELSET"=>"Body1"))
    @test_throws Exception parse_element_section(model, header, data)
end
=#

#= TODO: fix test
@testset "test read surface set section" begin
    data = """*SURFACE, TYPE=ELEMENT, NAME=LOAD
    31429,S1
    31481,S3
    """
    model = Dict{AbstractString, Any}()
    model["nsets"] = Dict{AbstractString, Vector{Int}}()
    model["elsets"] = Dict{AbstractString, Vector{Int}}()
    model["elements"] = Dict{Integer, Any}()
    parse_section(model, data, :SURFACE, 1, 3, Val{:SURFACE})
    @test model["surfaces"]["LOAD"] == [(31429,1), (31481,3)]
end
=#