Packages

paper_tiger

1.1.1
1.2.2 1.2.1 1.2.0 1.1.2 1.1.1 1.1.0 1.0.2 1.0.1 1.0.0 0.9.25 0.9.24 0.9.23 0.9.22 0.9.21 0.9.20 0.9.19 0.9.18 0.9.17 0.9.16 0.9.15 0.9.14 0.9.13 0.9.12 0.9.11 0.9.10 0.9.9 0.9.8 0.9.6 0.9.5 0.9.4 0.9.2 0.9.1 0.9.0 0.8.5 0.8.4 0.8.3 0.8.2 0.8.1 0.8.0 0.7.1 0.7.0

A stateful mock Stripe server for testing Elixir applications

HexDocs

Current section

Files

Jump to
Readme
41 Versions
5 Dependencies
Dependants
Files
Activity
paper_tiger lib paper_tiger port.ex
Raw

lib/paper_tiger/port.ex 

defmodule PaperTiger.Port do

  @moduledoc false



  @min_port 59_000

  @max_port 60_000

  @attempts 10



  @spec resolve() :: integer()

  def resolve do

    case Application.get_env(:paper_tiger, :actual_port) do

      nil -> resolve_unstarted()

      port -> port

    end

  end



  defp resolve_unstarted do

    case System.get_env("PAPER_TIGER_PORT") do

      nil ->

        case Application.get_env(:paper_tiger, :port) do

          nil ->

            port = find_available_port(@attempts)

            Application.put_env(:paper_tiger, :port, port)

            port



          port ->

            port

        end



      port_string ->

        port = String.to_integer(port_string)

        Application.put_env(:paper_tiger, :port, port)

        port

    end

  end



  defp find_available_port(attempts) when attempts > 1 do

    port = random_high_port()



    if port_available?(port) do

      port

    else

      find_available_port(attempts - 1)

    end

  end



  defp find_available_port(_attempts) do

    random_high_port()

  end



  defp random_high_port do

    @min_port + :rand.uniform(@max_port - @min_port)

  end



  defp port_available?(port) do

    case :gen_tcp.listen(port, [:binary, active: false, reuseaddr: true]) do

      {:ok, socket} ->

        :gen_tcp.close(socket)

        true



      {:error, _} ->

        false

    end

  end

end