prop_schema

defmodule Mix.Tasks.PropSchema.Print do
  use Mix.Task
  alias PropSchema.Executor
  require Logger
  require Executor

  @moduledoc """
    Prints the property tests generated for the given module. Use `--help` to see usage directions.
  """

  @shortdoc """

    Usage: `mix prop_schema.print <module> [options]`

    Where `module` is the PropSchema module for which tests will be generated.

    Options:

      output_path         Will output the results to a file at the given path. If file doesn't exist, it will be created
      additional_props    A module where the custom properties you have written are found
  """

  def run(args) do
    {parsed, argv} = parse_args(args)
    print_help(parsed)
    module = get_module(argv)
    additional = get_additional(parsed)

    module
    |> get_prop_tests(additional)
    |> Enum.map(&Macro.to_string(&1))
    |> Enum.join("\n\n")
    |> output(module, parsed)
  end

  defp parse_args(args) do
    {parsed, argv, errors} =
      OptionParser.parse(args,
        strict: [help: :boolean, output_path: :string, additional_props: :string]
      )

    Enum.each(errors, fn error -> Logger.warn("Erroneous option given: #{inspect(error)}") end)
    {parsed, argv}
  end

  defp get_module(argv) do
    case Enum.at(argv, 0) do
      nil ->
        nil

      name ->
        String.to_existing_atom("Elixir." <> name)
    end
  end

  defp get_additional(parsed) do
    case Keyword.get(parsed, :additional_props) do
      nil ->
        nil

      additional ->
        String.to_existing_atom("Elixir." <> additional)
    end
  end

  defp get_prop_tests(module, additional) do
    List.flatten([
      Executor.__create_prop_test__(
        module,
        :all_fields,
        module.__prop_schema__(),
        additional
      ),
      Executor.__create_prop_test__(
        module,
        module.__prop_schema__(),
        additional
      )
    ])
  end

  defp print_help(parsed) do
    if Keyword.get(parsed, :help, false) do
      Logger.info(@shortdoc)
      exit(:normal)
    end
  end

  defp output(tests, module, parsed) do
    case Keyword.get(parsed, :output_path) do
      nil ->
        Logger.info("Generated tests for #{module}:\n #{tests}")

      path ->
        File.write(path, tests)
    end
  end
end