defmodule AshNeo4j.Verifiers.VerifyPropertiesCamelCase do
  @moduledoc "Verifies that Neo4j properties are camelCase"
  use Spark.Dsl.Verifier

  alias Spark.Dsl.Verifier
  alias Spark.Error.DslError
  @regex ~r/^[a-z][a-zA-Z0-9]*$/

  @impl true
  def verify(dsl) do
    resource = Verifier.get_persisted(dsl, :module)

    translation = Verifier.get_option(dsl, [:neo4j], :translation, [])
    property_names = Keyword.values(translation)

    cond do
      property_names == [] ->
        :ok

      true ->
        if !Enum.all?(property_names, &Regex.match?(@regex, Atom.to_string(&1))) do
          {:error,
           DslError.exception(
             module: resource,
             message: "neo4j: neo4j property names must be camelCase"
           )}
        else
          :ok
        end
    end
  end
end