Initial commit on Forgejo

Fresh repository history for elektrine/tarakan hosted at
https://git.elektrine.com/elektrine/tarakan.

test/support/fixtures/accounts_fixtures.ex

@@ -0,0 +1,114 @@
+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