Access magic link token as string for testing

    test "It is possible to sign in with token" do
      admin = generate(user(role: :admin))

      {:ok, invited_user} =
        Dreng.Accounts.invite_user(%{role: :farmer, email: "farmer@example.org"}, actor: admin)

      token = get_magic_link_token(invited_user)

      {:ok, signed_in_user} =
        AshAuthentication.Info.strategy!(Dreng.Accounts.User, :magic_link_invite)
        |> AshAuthentication.Strategy.action(:sign_in, %{token: token})

      assert signed_in_user.id == invited_user.id
    end
  end

  defp get_magic_link_token(%Dreng.Accounts.User{} = user) do
    Dreng.Accounts.Token
    |> Ash.Query.for_read(:read)
    |> Ash.Query.filter(subject == ^"user?id=#{user.id}")
    |> Ash.Query.filter(purpose == "magic_link")
    |> Ash.read_one!(authorize?: false)
  end

    test "It is possible to sign in with token" do
      admin = generate(user(role: :admin))

      {:ok, invited_user} =
        Dreng.Accounts.invite_user(%{role: :farmer, email: "farmer@example.org"}, actor: admin)

      token = get_magic_link_token(invited_user)

      {:ok, signed_in_user} =
        AshAuthentication.Info.strategy!(Dreng.Accounts.User, :magic_link_invite)
        |> AshAuthentication.Strategy.action(:sign_in, %{token: token})

      assert signed_in_user.id == invited_user.id
    end
  end

  defp get_magic_link_token(%Dreng.Accounts.User{} = user) do
    Dreng.Accounts.Token
    |> Ash.Query.for_read(:read)
    |> Ash.Query.filter(subject == ^"user?id=#{user.id}")
    |> Ash.Query.filter(purpose == "magic_link")
    |> Ash.read_one!(authorize?: false)
  end