defmodule RDF.TestSuite do
  defmodule NS do
    use RDF.Vocabulary.Namespace

    defvocab MF,
      base_iri: "http://www.w3.org/2001/sw/DataAccess/tests/test-manifest#",
      terms: [],
      strict: false

    defvocab RDFT,
      base_iri: "http://www.w3.org/ns/rdftest#",
      terms: ~w[
        TestTurtleEval
        TestTurtlePositiveSyntax
        TestTurtleNegativeSyntax
        TestTurtleNegativeEval
      ],
      strict: false
  end

  @compile {:no_warn_undefined, RDF.TestSuite.NS.MF}
  @compile {:no_warn_undefined, RDF.TestSuite.NS.RDFT}

  alias NS.MF

  alias RDF.{Turtle, Graph, Description, IRI}

  def dir(format), do: Path.join(RDF.TestData.dir(), String.upcase(format) <> "-TESTS")
  def file(filename, format), do: format |> dir |> Path.join(filename)
  def manifest_path(format), do: file("manifest.ttl", format)

  def manifest_graph(format, opts \\ []) do
    format
    |> manifest_path
    |> Turtle.read_file!(opts)
  end

  def test_cases(format, test_type, opts) do
    format
    |> manifest_graph(opts)
    |> Graph.descriptions()
    |> Enum.filter(fn description ->
      RDF.iri(test_type) in Description.get(description, RDF.type(), [])
    end)
  end

  def test_name(test_case), do: value(test_case, MF.name())

  def test_title(test_case),
    # Unfortunately OTP < 20 doesn't support unicode characters in atoms,
    # so we can't put the description in the test name
    #    do: test_name(test_case) <> ": " <> value(test_case, RDFS.comment)
    do: test_name(test_case)

  def test_input_file(test_case),
    do: test_case |> Description.first(MF.action()) |> IRI.parse()

  def test_output_file(test_case),
    do: test_case |> Description.first(MF.result()) |> IRI.parse()

  def test_input_file_path(test_case, format),
    do: test_input_file(test_case).path |> Path.basename() |> file(format)

  def test_result_file_path(test_case, format),
    do: test_output_file(test_case).path |> Path.basename() |> file(format)

  defp value(description, property),
    do: Description.first(description, property) |> to_string
end