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

module AbaqusReaderTests

#using JuliaFEM
using JuliaFEM.Test

using JuliaFEM.Preprocess: parse_abaqus, parse_section

function test_read_abaqus_model()
  # FIXME: get_test_data()
    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

#=
facts("test that reader throws error when dimension information of elemenet is missing") do
    #   *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"))
    @fact_throws parse_element_section(model, header, data)
end
=#

function test_read_element_section()
    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

#function test_read_surface_set_section()
#    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

function test_unknown_handler_warning_message()
    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


end