defmodule Tarakan.AccountsFixtures do
  @moduledoc false

  alias Tarakan.Accounts

  def github_account_fixture(overrides \\ %{}) do
    unique_id = System.unique_integer([:positive])

    profile =
      Map.merge(
        %{
          provider_uid: unique_id,
          provider_login: "contributor-#{unique_id}",
          name: "Tarakan Contributor",
          avatar_url: "https://avatars.githubusercontent.com/u/#{unique_id}",
          profile_url: "https://github.com/contributor-#{unique_id}"
        },
        overrides
      )

    {:ok, account} = Accounts.upsert_external_identity(:github, profile)
    account
  end

  import Ecto.Query

  alias Tarakan.Accounts
  alias Tarakan.Accounts.Scope

  def unique_account_email, do: "account#{System.unique_integer()}@example.com"
  def unique_account_handle, do: "account-#{System.unique_integer([:positive])}"
  def valid_account_password, do: "correct horse battery staple"

  def valid_account_attributes(attrs \\ %{}) do
    Enum.into(attrs, %{
      email: unique_account_email(),
      handle: unique_account_handle()
    })
  end

  # Registration no longer stamps confirmed_at: email confirmation happens on
  # the first magic-link login (see account_fixture/1 below).
  def unconfirmed_account_fixture(attrs \\ %{}) do
    {:ok, account} =
      attrs
      |> valid_account_attributes()
      |> Accounts.register_account()

    account
  end

  def account_fixture(attrs \\ %{}) do
    account = unconfirmed_account_fixture(attrs)

    token =
      extract_account_token(fn url ->
        Accounts.deliver_login_instructions(account, url)
      end)

    {:ok, {account, _expired_tokens}} =
      Accounts.login_account_by_magic_link(token)

    account
  end

  def account_scope_fixture do
    account = account_fixture()
    account_scope_fixture(account)
  end

  def account_scope_fixture(account) do
    Scope.for_account(account)
  end

  def set_password(account) do
    {:ok, {account, _expired_tokens}} =
      Accounts.update_account_password(account, %{password: valid_account_password()})

    account
  end

  def extract_account_token(fun) do
    {:ok, captured_email} = fun.(&"[TOKEN]#{&1}[TOKEN]")
    [_, token | _] = String.split(captured_email.text_body, "[TOKEN]")
    token
  end

  def override_token_authenticated_at(token, authenticated_at) when is_binary(token) do
    hashed = Accounts.AccountToken.hash_token(token)

    Tarakan.Repo.update_all(
      from(t in Accounts.AccountToken,
        where: t.token == ^hashed
      ),
      set: [authenticated_at: authenticated_at]
    )
  end

  def generate_account_magic_link_token(account) do
    {encoded_token, account_token} = Accounts.AccountToken.build_email_token(account, "login")
    Tarakan.Repo.insert!(account_token)
    {encoded_token, account_token.token}
  end

  def offset_account_token(token, amount_to_add, unit) do
    dt = DateTime.add(DateTime.utc_now(:second), amount_to_add, unit)
    hashed = Accounts.AccountToken.hash_token(token)

    Tarakan.Repo.update_all(
      from(ut in Accounts.AccountToken, where: ut.token == ^hashed),
      set: [inserted_at: dt, authenticated_at: dt]
    )
  end
end