propcheck

defmodule PropCheck.App do
  use Application

  alias PropCheck.Mix
  @moduledoc false

  # See http://elixir-lang.org/docs/stable/elixir/Application.html
  # for more information on OTP Applications
  def start(_type, _args) do
    import Supervisor.Spec, warn: false

    populate_application_env()
    children = [
      # Define workers and child supervisors to be supervised
      %{
        id: PropCheck.CounterStrike,
        start: {
          PropCheck.CounterStrike,
          :start_link,
          [[name: PropCheck.CounterStrike]]
        }
      }
    ]

    # See http://elixir-lang.org/docs/stable/elixir/Supervisor.html
    # for other strategies and supported options
    opts = [strategy: :one_for_one, name: Propcheck.Supervisor]
    Supervisor.start_link(children, opts)
  end

  defp populate_application_env do
    Application.put_env(:propcheck, :global_verbose,  global_verbose())
    Application.put_env(:propcheck, :global_detect_exceptions,  global_detect_exceptions())
    Application.put_env(:propcheck, :counter_example_file, counter_example_file())
  end

  defp global_verbose do
      "PROPCHECK_VERBOSE"
      |> System.get_env()
      |> env_to_terniary()
  end

  defp global_detect_exceptions do
      "PROPCHECK_DETECT_EXCEPTIONS"
      |> System.get_env()
      |> env_to_terniary()
  end

  defp counter_example_file do
    case Application.get_env(:propcheck, :counter_examples) do
      nil -> Mix.counter_example_file() || Mix.default_counter_examples_file()
      counter_example_file -> counter_example_file
    end
  end

  defp env_to_terniary("1"), do: true
  defp env_to_terniary("0"), do: false
  defp env_to_terniary(""), do: false
  defp env_to_terniary(nil), do: nil
end