lipu_kasi/testing.org

#+TITLE: Lipu Kasi Test Support

#+begin_src elixir :tangle test/test_helper.exs
ExUnit.start()
Ecto.Adapters.SQL.Sandbox.mode(LipuKasi.Repo, :manual)
#+end_src

* Support for Connection Cases 

#+begin_src elixir :tangle test/support/conn_case.ex :mkdirp yes
defmodule LipuKasiWeb.ConnCase do
  @moduledoc """
  This module defines the test case to be used by
  tests that require setting up a connection.

  Such tests rely on `Phoenix.ConnTest` and also
  import other functionality to make it easier
  to build common data structures and query the data layer.

  Finally, if the test case interacts with the database,
  it cannot be async. For this reason, every test runs
  inside a transaction which is reset at the beginning
  of the test unless the test case is marked as async.
  """

  use ExUnit.CaseTemplate

  using do
    quote do
      # Import conveniences for testing with connections
      use Phoenix.ConnTest
      alias LipuKasiWeb.Router.Helpers, as: Routes

      # The default endpoint for testing
      @endpoint LipuKasiWeb.Endpoint
    end
  end

  setup tags do
    :ok = Ecto.Adapters.SQL.Sandbox.checkout(LipuKasi.Repo)

    unless tags[:async] do
      Ecto.Adapters.SQL.Sandbox.mode(LipuKasi.Repo, {:shared, self()})
    end

    {:ok, conn: Phoenix.ConnTest.build_conn()}
  end
end
#+end_src

* Support for Model Tests

#+begin_src elixir :tangle test/support/data_case.ex :mkdirp yes
defmodule LipuKasi.DataCase do
  @moduledoc """
  This module defines the setup for tests requiring
  access to the application's data layer.

  You may define functions here to be used as helpers in
  your tests.

  Finally, if the test case interacts with the database,
  it cannot be async. For this reason, every test runs
  inside a transaction which is reset at the beginning
  of the test unless the test case is marked as async.
  """

  use ExUnit.CaseTemplate

  using do
    quote do
      alias LipuKasi.Repo

      import Ecto
      import Ecto.Changeset
      import Ecto.Query
      import LipuKasi.DataCase
    end
  end

  setup tags do
    :ok = Ecto.Adapters.SQL.Sandbox.checkout(LipuKasi.Repo)

    unless tags[:async] do
      Ecto.Adapters.SQL.Sandbox.mode(LipuKasi.Repo, {:shared, self()})
    end

    :ok
  end

  @doc """
  A helper that transforms changeset errors into a map of messages.

      assert {:error, changeset} = Accounts.create_user(%{password: "short"})
      assert "password is too short" in errors_on(changeset).password
      assert %{password: ["password is too short"]} = errors_on(changeset)

  """
  def errors_on(changeset) do
    Ecto.Changeset.traverse_errors(changeset, fn {message, opts} ->
      Regex.replace(~r"%{(\w+)}", message, fn _, key ->
        opts |> Keyword.get(String.to_existing_atom(key), key) |> to_string()
      end)
    end)
  end
end
#+end_src

* Support for testing channels

#+begin_src elixir :tangle test/support/channel_case.ex :mkdirp yes
defmodule LipuKasiWeb.ChannelCase do
  @moduledoc """
  This module defines the test case to be used by
  channel tests.

  Such tests rely on `Phoenix.ChannelTest` and also
  import other functionality to make it easier
  to build common data structures and query the data layer.

  Finally, if the test case interacts with the database,
  it cannot be async. For this reason, every test runs
  inside a transaction which is reset at the beginning
  of the test unless the test case is marked as async.
  """

  use ExUnit.CaseTemplate

  using do
    quote do
      # Import conveniences for testing with channels
      use Phoenix.ChannelTest

      # The default endpoint for testing
      @endpoint LipuKasiWeb.Endpoint
    end
  end

  setup tags do
    :ok = Ecto.Adapters.SQL.Sandbox.checkout(LipuKasi.Repo)

    unless tags[:async] do
      Ecto.Adapters.SQL.Sandbox.mode(LipuKasi.Repo, {:shared, self()})
    end

    :ok
  end
end
#+end_src