comparing 4dda3b831eaca39c8546935a214529d9747eec4a and main on hauleth.dev/esl_hn

+1 -1

.formatter.exs

···

       1
        
       [

     

       2
        
         line_length: 80,

     

       3
       -
         import_deps: [:phoenix],

     

       4
        
         inputs: ["*.{ex,exs}", "{config,lib,test}/**/*.{ex,exs}"]

     

       5
        
       ]

···

       1
        
       [

     

       2
        
         line_length: 80,

     

       3
       +
         import_deps: [:phoenix, :stream_data, :ecto],

     

       4
        
         inputs: ["*.{ex,exs}", "{config,lib,test}/**/*.{ex,exs}"]

     

       5
        
       ]

+5 -1

config/config.exs

···

       6
        
       

     

       7
        
       import Config

     

       8
        
       

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       9
        
       config :esl_hn,

     

       10
        
         generators: [timestamp_type: :utc_datetime]

     

       11
        
       

     
···

       14
        
         url: [host: "localhost"],

     

       15
        
         adapter: Bandit.PhoenixAdapter,

     

       16
        
         render_errors: [

     

       17
       -
           formats: [json: EslHnWeb.ErrorJSON],

     

       18
        
           layout: false

     

       19
        
         ],

     

       20
        
         pubsub_server: EslHn.PubSub,

···

       6
        
       

     

       7
        
       import Config

     

       8
        
       

     

       9
       +
       config :mime, :types, %{

     

       10
       +
         "text/event-stream" => ["sse"]

     

       11
       +
       }

     

       12
       +
       

     

       13
        
       config :esl_hn,

     

       14
        
         generators: [timestamp_type: :utc_datetime]

     

       15
        
       

     
···

       18
        
         url: [host: "localhost"],

     

       19
        
         adapter: Bandit.PhoenixAdapter,

     

       20
        
         render_errors: [

     

       21
       +
           formats: [json: EslHnWeb.Error.JSON],

     

       22
        
           layout: false

     

       23
        
         ],

     

       24
        
         pubsub_server: EslHn.PubSub,

config/dev.exs

···

       11
        
           "TQ20YLfpm8CWUZ0wvMVvXwKLjOdxb6//anr3iafpvW15LKlsoMez2OFUTifz0gxs",

     

       12
        
         watchers: []

     

       13
        
       

     

       0
        
       
     

       0
        
       
     

       14
        
       # ## SSL Support

     

       15
        
       #

     

       16
        
       # In order to use HTTPS in development, a self-signed

···

       11
        
           "TQ20YLfpm8CWUZ0wvMVvXwKLjOdxb6//anr3iafpvW15LKlsoMez2OFUTifz0gxs",

     

       12
        
         watchers: []

     

       13
        
       

     

       14
       +
       config :esl_hn, refresh: :timer.seconds(5)

     

       15
       +
       

     

       16
        
       # ## SSL Support

     

       17
        
       #

     

       18
        
       # In order to use HTTPS in development, a self-signed

config/runtime.exs

···

       1
        
       import Config

     

       2
        
       

     

       0
        
       
     

       0
        
       
     

       3
        
       # ## Using releases

     

       4
        
       #

     

       5
        
       # If you use `mix release`, you need to explicitly enable the server

     
···

       14
        
       end

     

       15
        
       

     

       16
        
       if config_env() == :prod do

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       17
        
         secret_key_base =

     

       18
        
           System.get_env("SECRET_KEY_BASE") ||

     

       19
        
             raise """

···

       1
        
       import Config

     

       2
        
       

     

       3
       +
       alias EslHn.ConfigReader, as: CR

     

       4
       +
       

     

       5
        
       # ## Using releases

     

       6
        
       #

     

       7
        
       # If you use `mix release`, you need to explicitly enable the server

     
···

       16
        
       end

     

       17
        
       

     

       18
        
       if config_env() == :prod do

     

       19
       +
         config :esl_hn,

     

       20
       +
           refresh: CR.duration("ESL_HN_REFRESH", {:minutes, 5})

     

       21
       +
       

     

       22
        
         secret_key_base =

     

       23
        
           System.get_env("SECRET_KEY_BASE") ||

     

       24
        
             raise """

+5 -2

config/test.exs

···

       3
        
       # We don't run a server during test. If one is required,

     

       4
        
       # you can enable the server option below.

     

       5
        
       config :esl_hn, EslHnWeb.Endpoint,

     

       6
       -
         http: [ip: {127, 0, 0, 1}, port: 4002],

     

       7
        
         secret_key_base:

     

       8
        
           "6iR9shI35kN7Xr5bOLgBVMHXTZQS49Gwu82WW4rsr0uhaia7D+NjfNrhhvcOp4rr",

     

       9
       -
         server: false

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       10
        
       

     

       11
        
       # Print only warnings and errors during test

     

       12
        
       config :logger, level: :warning

···

       3
        
       # We don't run a server during test. If one is required,

     

       4
        
       # you can enable the server option below.

     

       5
        
       config :esl_hn, EslHnWeb.Endpoint,

     

       6
       +
         http: [ip: {127, 0, 0, 1}, port: 0],

     

       7
        
         secret_key_base:

     

       8
        
           "6iR9shI35kN7Xr5bOLgBVMHXTZQS49Gwu82WW4rsr0uhaia7D+NjfNrhhvcOp4rr",

     

       9
       +
         server: true

     

       10
       +
       

     

       11
       +
       # Disable main refresher in tests

     

       12
       +
       config :esl_hn, refresh: 0

     

       13
        
       

     

       14
        
       # Print only warnings and errors during test

     

       15
        
       config :logger, level: :warning

lib/esl_hn/application.ex

···

       5
        
       

     

       6
        
         @impl true

     

       7
        
         def start(_type, _args) do

     

       0
        
       
     

       0
        
       
     

       8
        
           children = [

     

       9
        
             EslHnWeb.Telemetry,

     

       10
        
             {Phoenix.PubSub, name: EslHn.PubSub},

     

       0
        
       
     

       0
        
       
     

       11
        
             EslHnWeb.Endpoint

     

       12
        
           ]

     

       13

···

       5
        
       

     

       6
        
         @impl true

     

       7
        
         def start(_type, _args) do

     

       8
       +
           refresh = Application.fetch_env!(:esl_hn, :refresh)

     

       9
       +
       

     

       10
        
           children = [

     

       11
        
             EslHnWeb.Telemetry,

     

       12
        
             {Phoenix.PubSub, name: EslHn.PubSub},

     

       13
       +
             {EslHn.Cache, name: EslHn},

     

       14
       +
             {EslHn.Refresher, refresh: refresh, cache: {EslHn.Cache, EslHn}},

     

       15
        
             EslHnWeb.Endpoint

     

       16
        
           ]

     

       17

+120

lib/esl_hn/cache.ex

···

       1
       +
       defmodule EslHn.Cache do

     

       2
       +
         @moduledoc """

     

       3
       +
         Simple cache implementation using ETS tables

     

       4
       +
         """

     

       5
       +
       

     

       6
       +
         use GenServer

     

       7
       +
       

     

       8
       +
         def start_link(opts) do

     

       9
       +
           with {:ok, pid} <- GenServer.start_link(__MODULE__, opts) do

     

       10
       +
             tid = GenServer.call(pid, :get_tid)

     

       11
       +
       

     

       12
       +
             {:ok, pid, tid}

     

       13
       +
           end

     

       14
       +
         end

     

       15
       +
       

     

       16
       +
         @doc """

     

       17
       +
         Fetch data from cache

     

       18
       +
         """

     

       19
       +
         def fetch(tid, key) do

     

       20
       +
           meta = %{key: key, tid: tid}

     

       21
       +
       

     

       22
       +
           :telemetry.span([:esl_hn, :cache, :fetch], meta, fn ->

     

       23
       +
             case :ets.lookup(tid, key) do

     

       24
       +
               [{^key, data}] -> {{:ok, data}, %{hit: 1}, meta}

     

       25
       +
               _ -> {:error, %{miss: 1}, meta}

     

       26
       +
             end

     

       27
       +
           end)

     

       28
       +
         end

     

       29
       +
       

     

       30
       +
         @doc """

     

       31
       +
         Get data from cache and returns `default` when value isn't present

     

       32
       +
         """

     

       33
       +
         def get(tid, key, default \\ nil) do

     

       34
       +
           case fetch(tid, key) do

     

       35
       +
             {:ok, val} -> val

     

       36
       +
             :error -> default

     

       37
       +
           end

     

       38
       +
         end

     

       39
       +
       

     

       40
       +
         @doc """

     

       41
       +
         Write `data` to cache under `key`

     

       42
       +
         """

     

       43
       +
         def write(tid, key, data) do

     

       44
       +
           meta = %{key: key, tid: tid}

     

       45
       +
       

     

       46
       +
           :telemetry.span([:esl_hn, :cache, :write], meta, fn ->

     

       47
       +
             true = :ets.insert(tid, {key, data})

     

       48
       +
       

     

       49
       +
             {:ok, %{count: 1}, meta}

     

       50
       +
           end)

     

       51
       +
         end

     

       52
       +
       

     

       53
       +
         @doc """

     

       54
       +
         Bulk write to cache

     

       55
       +
         """

     

       56
       +
         def write_all(tid, data) do

     

       57
       +
           meta = %{tid: tid}

     

       58
       +
       

     

       59
       +
           :telemetry.span([:esl_hn, :cache, :write], meta, fn ->

     

       60
       +
             true = :ets.insert(tid, data)

     

       61
       +
       

     

       62
       +
             {:ok, %{count: length(data)}, meta}

     

       63
       +
           end)

     

       64
       +
         end

     

       65
       +
       

     

       66
       +
         @doc """

     

       67
       +
         Remove value under given key from cache

     

       68
       +
         """

     

       69
       +
         def prune(tid, key) do

     

       70
       +
           :ets.delete(tid, key)

     

       71
       +
       

     

       72
       +
           :ok

     

       73
       +
         end

     

       74
       +
       

     

       75
       +
         @doc """

     

       76
       +
         Bulk removal of values from cache

     

       77
       +
         """

     

       78
       +
         def prune_all(tid, keys) do

     

       79
       +
           for key <- keys, do: :ets.delete(tid, key)

     

       80
       +
       

     

       81
       +
           :ok

     

       82
       +
         end

     

       83
       +
       

     

       84
       +
         @doc """

     

       85
       +
         Remove all cached data

     

       86
       +
         """

     

       87
       +
         def flush(tid) do

     

       88
       +
           :ets.delete_all_objects(tid)

     

       89
       +
       

     

       90
       +
           :ok

     

       91
       +
         end

     

       92
       +
       

     

       93
       +
         @impl true

     

       94
       +
         def init(opts) do

     

       95
       +
           {name, opts} =

     

       96
       +
             case Access.fetch(opts, :name) do

     

       97
       +
               {:ok, name} -> {name, [:named_table]}

     

       98
       +
               :error -> {nil, []}

     

       99
       +
             end

     

       100
       +
       

     

       101
       +
           tid =

     

       102
       +
             :ets.new(

     

       103
       +
               name,

     

       104
       +
               opts ++

     

       105
       +
                 [

     

       106
       +
                   :set,

     

       107
       +
                   :public,

     

       108
       +
                   write_concurrency: :auto,

     

       109
       +
                   read_concurrency: true

     

       110
       +
                 ]

     

       111
       +
             )

     

       112
       +
       

     

       113
       +
           {:ok, %{tid: tid}}

     

       114
       +
         end

     

       115
       +
       

     

       116
       +
         @impl true

     

       117
       +
         def handle_call(:get_tid, _ref, state) do

     

       118
       +
           {:reply, state.tid, state}

     

       119
       +
         end

     

       120
       +
       end

+51

lib/esl_hn/config_reader.ex

···

       1
       +
       defmodule EslHn.ConfigReader do

     

       2
       +
         @moduledoc """

     

       3
       +
         Configuration helpers for reading different data from system environment

     

       4
       +
       

     

       5
       +
         TODO: Extract that as a library as it is yet another project where I need

     

       6
       +
         something like that

     

       7
       +
         """

     

       8
       +
       

     

       9
       +
         @doc """

     

       10
       +
         Fetch duration from environment variable `name`

     

       11
       +
       

     

       12
       +
         The return value will be in milliseconds.

     

       13
       +
       

     

       14
       +
         Supported formats are:

     

       15
       +
         - `{integer}` - number of milliseconds in duration

     

       16
       +
         - `{integer}(s|m|h)` - number of seconds|minutes|hours in duration

     

       17
       +
       

     

       18
       +
         If environment variable is not set, then it will use `default` value.

     

       19
       +
         """

     

       20
       +
         @spec duration(name :: String.t(), default :: duration) :: non_neg_integer()

     

       21
       +
               when duration:

     

       22
       +
                      non_neg_integer()

     

       23
       +
                      | {:seconds | :minutes | :hours, non_neg_integer()}

     

       24
       +
         def duration(name, default) do

     

       25
       +
           case System.fetch_env(name) do

     

       26
       +
             :error -> default

     

       27
       +
             {:ok, ""} -> default

     

       28
       +
             {:ok, value} -> parse_duration(value)

     

       29
       +
           end

     

       30
       +
           |> normalise_duration()

     

       31
       +
         end

     

       32
       +
       

     

       33
       +
         defp parse_duration(value) do

     

       34
       +
           case Integer.parse(value) do

     

       35
       +
             {value, ""} -> value

     

       36
       +
             {value, "s"} -> {:seconds, value}

     

       37
       +
             {value, "m"} -> {:minutes, value}

     

       38
       +
             {value, "h"} -> {:hours, value}

     

       39
       +
           end

     

       40
       +
         end

     

       41
       +
       

     

       42
       +
         defp normalise_duration(milli) when is_integer(milli), do: milli

     

       43
       +
       

     

       44
       +
         defp normalise_duration({:seconds, s}) when is_integer(s),

     

       45
       +
           do: :timer.seconds(s)

     

       46
       +
       

     

       47
       +
         defp normalise_duration({:minutes, m}) when is_integer(m),

     

       48
       +
           do: :timer.minutes(m)

     

       49
       +
       

     

       50
       +
         defp normalise_duration({:hours, h}) when is_integer(h), do: :timer.hours(h)

     

       51
       +
       end

+69

lib/esl_hn/hn/story.ex

···

       1
       +
       defmodule EslHn.Hn.Story do

     

       2
       +
         @moduledoc """

     

       3
       +
         Schema for describing Hacker News stories

     

       4
       +
       

     

       5
       +
         Not all fields for it are currently used.

     

       6
       +
         """

     

       7
       +
       

     

       8
       +
         use Ecto.Schema

     

       9
       +
       

     

       10
       +
         import Ecto.Changeset

     

       11
       +
       

     

       12
       +
         @primary_key {:id, :integer, []}

     

       13
       +
       

     

       14
       +
         @type id() :: non_neg_integer()

     

       15
       +
       

     

       16
       +
         @type t() :: %__MODULE__{

     

       17
       +
                 id: id(),

     

       18
       +
                 url: String.t() | nil,

     

       19
       +
                 type: atom(),

     

       20
       +
                 text: String.t()

     

       21
       +
               }

     

       22
       +
       

     

       23
       +
         embedded_schema do

     

       24
       +
           # TODO: Make it `URL` structure

     

       25
       +
           field :url, :string

     

       26
       +
           field :title, :string

     

       27
       +
           field :by, :string

     

       28
       +
           field :type, Ecto.Enum, values: [:job, :story, :comment, :poll, :pollopt]

     

       29
       +
       

     

       30
       +
           # TODO: Transform it to DateTime

     

       31
       +
           field :time, :integer

     

       32
       +
       

     

       33
       +
           field :deleted, :boolean

     

       34
       +
           field :text, :string

     

       35
       +
           field :dead, :boolean

     

       36
       +
           field :parent, :integer

     

       37
       +
           field :kids, {:array, :integer}

     

       38
       +
           field :score, :integer

     

       39
       +
       

     

       40
       +
           field :descendants, :integer

     

       41
       +
       

     

       42
       +
           # TODO: Check exact structure of this field

     

       43
       +
           # field :poll, map()

     

       44
       +
           # field :parts, map()

     

       45
       +
         end

     

       46
       +
       

     

       47
       +
         def changeset(model \\ %__MODULE__{}, attrs) do

     

       48
       +
           model

     

       49
       +
           |> cast(

     

       50
       +
             attrs,

     

       51
       +
             [

     

       52
       +
               :id,

     

       53
       +
               :url,

     

       54
       +
               :title,

     

       55
       +
               :by,

     

       56
       +
               :type,

     

       57
       +
               :time,

     

       58
       +
               :deleted,

     

       59
       +
               :text,

     

       60
       +
               :dead,

     

       61
       +
               :parent,

     

       62
       +
               :kids,

     

       63
       +
               :score,

     

       64
       +
               :descendants

     

       65
       +
             ],

     

       66
       +
             empty_values: []

     

       67
       +
           )

     

       68
       +
         end

     

       69
       +
       end

+97

lib/esl_hn/hn.ex

···

       1
       +
       defmodule EslHn.Hn do

     

       2
       +
         @moduledoc """

     

       3
       +
         Simple HTTP client for Hacker News API

     

       4
       +
         """

     

       5
       +
       

     

       6
       +
         alias EslHn.Hn.Story

     

       7
       +
       

     

       8
       +
         @type opts() :: keyword()

     

       9
       +
       

     

       10
       +
         @doc """

     

       11
       +
         Fetch list of top stories

     

       12
       +
       

     

       13
       +
         ## Options

     

       14
       +
       

     

       15
       +
         - `:limit` - amount of stories to fetch (defaults to `50`)

     

       16
       +
         """

     

       17
       +
         # TODO: Is there a way to limit amount of returned entries in query?

     

       18
       +
         @spec top_stories_ids(opts()) :: {:ok, [Story.id()]} | {:error, term()}

     

       19
       +
         def top_stories_ids(opts \\ []) do

     

       20
       +
           limit = opts[:limit] || 50

     

       21
       +
       

     

       22
       +
           with {:ok, list} <- get("topstories.json", opts) do

     

       23
       +
             {:ok, Enum.take(list, limit)}

     

       24
       +
           end

     

       25
       +
         end

     

       26
       +
       

     

       27
       +
         @doc """

     

       28
       +
         Fetch single story for given ID

     

       29
       +
         """

     

       30
       +
         @spec story(Story.id(), opts()) :: {:ok, Story.t()} | {:error, term()}

     

       31
       +
         def story(id, opts \\ []) do

     

       32
       +
           with {:ok, body} <- get("item/:id.json", [id: id], opts) do

     

       33
       +
             Story.changeset(body)

     

       34
       +
             |> Ecto.Changeset.apply_action(:create)

     

       35
       +
           end

     

       36
       +
         end

     

       37
       +
       

     

       38
       +
         @doc """

     

       39
       +
         Fetch stories for IDs in enumerable

     

       40
       +
         """

     

       41
       +
         @spec stories(Enumerable.t(Story.id()), opts()) ::

     

       42
       +
                 {:ok, [Story.t()]} | {:error, term()}

     

       43
       +
         def stories(ids, opts \\ []) do

     

       44
       +
           ids

     

       45
       +
           |> Task.async_stream(&story(&1, opts))

     

       46
       +
           |> map_while(fn

     

       47
       +
             {:ok, {:ok, data}} -> {:cont, data}

     

       48
       +
             {:ok, error} -> {:halt, error}

     

       49
       +
             {:error, reason} -> {:halt, {:error, {:process_error, reason}}}

     

       50
       +
           end)

     

       51
       +
           |> case do

     

       52
       +
             list when is_list(list) -> {:ok, list}

     

       53
       +
             error -> error

     

       54
       +
           end

     

       55
       +
         end

     

       56
       +
       

     

       57
       +
         @base_url URI.new!("https://hacker-news.firebaseio.com/v0/")

     

       58
       +
       

     

       59
       +
         defp get(path, params \\ [], opts) do

     

       60
       +
           opts =

     

       61
       +
             Keyword.merge(

     

       62
       +
               [

     

       63
       +
                 base_url: @base_url,

     

       64
       +
                 path_params: params

     

       65
       +
               ],

     

       66
       +
               opts

     

       67
       +
             )

     

       68
       +
       

     

       69
       +
           Req.new(opts)

     

       70
       +
           |> ReqTelemetry.attach()

     

       71
       +
           |> Req.get(url: path)

     

       72
       +
           |> case do

     

       73
       +
             {:ok, %Req.Response{status: 200, body: body}} ->

     

       74
       +
               {:ok, body}

     

       75
       +
       

     

       76
       +
             {:ok, %Req.Response{status: other, body: body}} ->

     

       77
       +
               {:error, {:http_response, other, body}}

     

       78
       +
       

     

       79
       +
             {:error, _} = error ->

     

       80
       +
               error

     

       81
       +
           end

     

       82
       +
         end

     

       83
       +
       

     

       84
       +
         defp map_while(enumerable, func) do

     

       85
       +
           f = fn x, acc ->

     

       86
       +
             case func.(x) do

     

       87
       +
               {:cont, y} -> {:cont, [y | acc]}

     

       88
       +
               {:halt, ret} -> {:halt, {:halted, ret}}

     

       89
       +
             end

     

       90
       +
           end

     

       91
       +
       

     

       92
       +
           case Enum.reduce_while(enumerable, [], f) do

     

       93
       +
             {:halted, ret} -> ret

     

       94
       +
             list when is_list(list) -> Enum.reverse(list)

     

       95
       +
           end

     

       96
       +
         end

     

       97
       +
       end

+72

lib/esl_hn/refresher.ex

···

       1
       +
       defmodule EslHn.Refresher do

     

       2
       +
         @moduledoc """

     

       3
       +
         Module defining process that is responsible for refreshing cached data

     

       4
       +
         """

     

       5
       +
       

     

       6
       +
         use GenServer

     

       7
       +
       

     

       8
       +
         alias EslHn.Hn

     

       9
       +
       

     

       10
       +
         def start_link(opts),

     

       11
       +
           do: GenServer.start_link(__MODULE__, opts)

     

       12
       +
       

     

       13
       +
         @impl true

     

       14
       +
         def init(opts) do

     

       15
       +
           refresh = Access.fetch!(opts, :refresh)

     

       16
       +
           {mod, tid} = Access.fetch!(opts, :cache)

     

       17
       +
           req_opts = Access.get(opts, :req_opts, [])

     

       18
       +
       

     

       19
       +
           if refresh > 0 do

     

       20
       +
             {:ok,

     

       21
       +
              %{

     

       22
       +
                refresh: refresh,

     

       23
       +
                ids: MapSet.new(),

     

       24
       +
                cache: {mod, tid},

     

       25
       +
                req_opts: req_opts

     

       26
       +
              }, {:continue, :refresh}}

     

       27
       +
           else

     

       28
       +
             :ignore

     

       29
       +
           end

     

       30
       +
         end

     

       31
       +
       

     

       32
       +
         @impl true

     

       33
       +
         def handle_info(:refresh, state) do

     

       34
       +
           {:noreply, state, {:continue, :refresh}}

     

       35
       +
         end

     

       36
       +
       

     

       37
       +
         @impl true

     

       38
       +
         def handle_continue(:refresh, state) do

     

       39
       +
           ids = fetch(state)

     

       40
       +
       

     

       41
       +
           Process.send_after(self(), :refresh, state.refresh)

     

       42
       +
       

     

       43
       +
           {:noreply, %{state | ids: ids}}

     

       44
       +
         end

     

       45
       +
       

     

       46
       +
         defp fetch(state) do

     

       47
       +
           {mod, tid} = state.cache

     

       48
       +
       

     

       49
       +
           :telemetry.span([:esl_hn, :refresh], %{cache: mod}, fn ->

     

       50
       +
             with {:ok, ids} <- Hn.top_stories_ids(state.req_opts),

     

       51
       +
                  new_set = MapSet.new(ids),

     

       52
       +
                  new = MapSet.difference(new_set, state.ids),

     

       53
       +
                  old = MapSet.difference(state.ids, new_set),

     

       54
       +
                  {:ok, stories} <- Hn.stories(new, state.req_opts) do

     

       55
       +
               rows =

     

       56
       +
                 for story <- stories, do: {story.id, story}

     

       57
       +
       

     

       58
       +
               :ok = mod.write(tid, :index, ids)

     

       59
       +
               :ok = mod.write_all(tid, rows)

     

       60
       +
               :ok = mod.prune_all(tid, old)

     

       61
       +
       

     

       62
       +
               EslHn.broadcast_new(for story <- stories, story.id in new, do: story)

     

       63
       +
       

     

       64
       +
               {new_set, %{new: MapSet.size(new), old: MapSet.size(old)},

     

       65
       +
                %{cache: mod}}

     

       66
       +
             else

     

       67
       +
               _ ->

     

       68
       +
                 {state.ids, %{failed: 1}, %{cache: mod}}

     

       69
       +
             end

     

       70
       +
           end)

     

       71
       +
         end

     

       72
       +
       end

+25

lib/esl_hn.ex

···

       6
        
         Contexts are also responsible for managing your data, regardless

     

       7
        
         if it comes from the database, an external API or others.

     

       8
        
         """

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       9
        
       end

···

       6
        
         Contexts are also responsible for managing your data, regardless

     

       7
        
         if it comes from the database, an external API or others.

     

       8
        
         """

     

       9
       +
       

     

       10
       +
         alias EslHn.Cache

     

       11
       +
       

     

       12
       +
         def all(page \\ 1, per_page \\ 10) do

     

       13
       +
           skip = per_page * (page - 1)

     

       14
       +
       

     

       15
       +
           ids = Cache.get(EslHn, :index, [])

     

       16
       +
       

     

       17
       +
           ids

     

       18
       +
           |> Enum.drop(skip)

     

       19
       +
           |> Enum.take(per_page)

     

       20
       +
           |> Enum.map(&Cache.get(EslHn, &1))

     

       21
       +
         end

     

       22
       +
       

     

       23
       +
         def story(id) do

     

       24
       +
           Cache.fetch(EslHn, id)

     

       25
       +
         end

     

       26
       +
       

     

       27
       +
         def broadcast_new(stories) do

     

       28
       +
           Phoenix.PubSub.broadcast(EslHn.PubSub, "hn:new", {:new_stories, stories})

     

       29
       +
         end

     

       30
       +
       

     

       31
       +
         def subscribe_new do

     

       32
       +
           Phoenix.PubSub.subscribe(EslHn.PubSub, "hn:new")

     

       33
       +
         end

     

       34
        
       end

+39

lib/esl_hn_web/api/controller.ex

···

       1
       +
       defmodule EslHnWeb.API.Controller do

     

       2
       +
         @moduledoc """

     

       3
       +
         Controller for serving HN top stories cache

     

       4
       +
         """

     

       5
       +
       

     

       6
       +
         use EslHnWeb, :controller

     

       7
       +
       

     

       8
       +
         def index(conn, params) do

     

       9
       +
           page = get_page(params["page"])

     

       10
       +
       

     

       11
       +
           render(conn, items: EslHn.all(page))

     

       12
       +
         end

     

       13
       +
       

     

       14
       +
         def show(conn, %{"id" => id}) do

     

       15
       +
           with {:ok, id} <- try_int(id),

     

       16
       +
                {:ok, story} <- EslHn.story(id) do

     

       17
       +
             render(conn, item: story)

     

       18
       +
           else

     

       19
       +
             _ ->

     

       20
       +
               conn

     

       21
       +
               |> put_status(:not_found)

     

       22
       +
               |> put_view(EslHnWeb.Error.JSON)

     

       23
       +
               |> render(:"404", %{})

     

       24
       +
           end

     

       25
       +
         end

     

       26
       +
       

     

       27
       +
         defp get_page(nil), do: 1

     

       28
       +
       

     

       29
       +
         defp get_page(input) do

     

       30
       +
           String.to_integer(input)

     

       31
       +
         end

     

       32
       +
       

     

       33
       +
         defp try_int(value) do

     

       34
       +
           case Integer.parse(value) do

     

       35
       +
             {int, ""} -> {:ok, int}

     

       36
       +
             _ -> :error

     

       37
       +
           end

     

       38
       +
         end

     

       39
       +
       end

+22

lib/esl_hn_web/api/json.ex

···

       1
       +
       defmodule EslHnWeb.API.JSON do

     

       2
       +
         @moduledoc """

     

       3
       +
         Simple JSON view into Hacker New stories

     

       4
       +
         """

     

       5
       +
       

     

       6
       +
         def index(attrs) do

     

       7
       +
           Enum.map(attrs.items, &one/1)

     

       8
       +
         end

     

       9
       +
       

     

       10
       +
         def show(attrs) do

     

       11
       +
           one(attrs.item)

     

       12
       +
         end

     

       13
       +
       

     

       14
       +
         defp one(%EslHn.Hn.Story{} = story) do

     

       15
       +
           %{

     

       16
       +
             id: story.id,

     

       17
       +
             title: story.title,

     

       18
       +
             url: story.url,

     

       19
       +
             score: story.score

     

       20
       +
           }

     

       21
       +
         end

     

       22
       +
       end

+49

lib/esl_hn_web/api/socket.ex

···

       1
       +
       defmodule EslHnWeb.API.Socket do

     

       2
       +
         @moduledoc """

     

       3
       +
         WebSocket API for serving top stories news

     

       4
       +
         """

     

       5
       +
       

     

       6
       +
         @behaviour Phoenix.Socket.Transport

     

       7
       +
       

     

       8
       +
         alias EslHnWeb.API.JSON, as: View

     

       9
       +
       

     

       10
       +
         @impl true

     

       11
       +
         def child_spec(_opts), do: :ignore

     

       12
       +
       

     

       13
       +
         @impl true

     

       14
       +
         def connect(_connect_info) do

     

       15
       +
           {:ok, []}

     

       16
       +
         end

     

       17
       +
       

     

       18
       +
         @impl true

     

       19
       +
         def init(state) do

     

       20
       +
           # No support for `handle_continue/2` so we need to hack it around

     

       21
       +
           send(self(), :do_init)

     

       22
       +
           EslHn.subscribe_new()

     

       23
       +
       

     

       24
       +
           {:ok, state}

     

       25
       +
         end

     

       26
       +
       

     

       27
       +
         @impl true

     

       28
       +
         def handle_in({_message, _opts}, state) do

     

       29
       +
           # Ignore all incoming messages

     

       30
       +
           {:ok, state}

     

       31
       +
         end

     

       32
       +
       

     

       33
       +
         @impl true

     

       34
       +
         def handle_info(:do_init, state) do

     

       35
       +
           stories = EslHn.all(1, 50)

     

       36
       +
           data = View.index(%{items: stories})

     

       37
       +
       

     

       38
       +
           {:push, {:text, JSON.encode_to_iodata!(data)}, state}

     

       39
       +
         end

     

       40
       +
       

     

       41
       +
         def handle_info({:new_stories, stories}, state) do

     

       42
       +
           data = View.index(%{items: stories})

     

       43
       +
       

     

       44
       +
           {:push, {:text, JSON.encode_to_iodata!(data)}, state}

     

       45
       +
         end

     

       46
       +
       

     

       47
       +
         @impl true

     

       48
       +
         def terminate(_reason, _state), do: :ok

     

       49
       +
       end

-25

lib/esl_hn_web/controllers/error_json.ex

···

       1
       -
       defmodule EslHnWeb.ErrorJSON do

     

       2
       -
         @moduledoc """

     

       3
       -
         This module is invoked by your endpoint in case of errors on JSON requests.

     

       4
       -
       

     

       5
       -
         See config/config.exs.

     

       6
       -
         """

     

       7
       -
       

     

       8
       -
         # If you want to customize a particular status code,

     

       9
       -
         # you may add your own clauses, such as:

     

       10
       -
         #

     

       11
       -
         # def render("500.json", _assigns) do

     

       12
       -
         #   %{errors: %{detail: "Internal Server Error"}}

     

       13
       -
         # end

     

       14
       -
       

     

       15
       -
         # By default, Phoenix returns the status message from

     

       16
       -
         # the template name. For example, "404.json" becomes

     

       17
       -
         # "Not Found".

     

       18
       -
         def render(template, _assigns) do

     

       19
       -
           %{

     

       20
       -
             errors: %{

     

       21
       -
               detail: Phoenix.Controller.status_message_from_template(template)

     

       22
       -
             }

     

       23
       -
           }

     

       24
       -
         end

     

       25
       -
       end

lib/esl_hn_web/endpoint.ex

···

       12
        
           websocket: [connect_info: [session: @session_options]],

     

       13
        
           longpoll: [connect_info: [session: @session_options]]

     

       14
        
       

     

       0
        
       
     

       0
        
       
     

       15
        
         plug Plug.Static,

     

       16
        
           at: "/",

     

       17
        
           from: :esl_hn,

···

       12
        
           websocket: [connect_info: [session: @session_options]],

     

       13
        
           longpoll: [connect_info: [session: @session_options]]

     

       14
        
       

     

       15
       +
         socket "/", EslHnWeb.API.Socket

     

       16
       +
       

     

       17
        
         plug Plug.Static,

     

       18
        
           at: "/",

     

       19
        
           from: :esl_hn,

+25

lib/esl_hn_web/error/json.ex

···

       1
       +
       defmodule EslHnWeb.Error.JSON do

     

       2
       +
         @moduledoc """

     

       3
       +
         This module is invoked by your endpoint in case of errors on JSON requests.

     

       4
       +
       

     

       5
       +
         See config/config.exs.

     

       6
       +
         """

     

       7
       +
       

     

       8
       +
         # If you want to customize a particular status code,

     

       9
       +
         # you may add your own clauses, such as:

     

       10
       +
         #

     

       11
       +
         # def render("500.json", _assigns) do

     

       12
       +
         #   %{errors: %{detail: "Internal Server Error"}}

     

       13
       +
         # end

     

       14
       +
       

     

       15
       +
         # By default, Phoenix returns the status message from

     

       16
       +
         # the template name. For example, "404.json" becomes

     

       17
       +
         # "Not Found".

     

       18
       +
         def render(template, _assigns) do

     

       19
       +
           %{

     

       20
       +
             errors: %{

     

       21
       +
               detail: Phoenix.Controller.status_message_from_template(template)

     

       22
       +
             }

     

       23
       +
           }

     

       24
       +
         end

     

       25
       +
       end

+4 -1

lib/esl_hn_web/router.ex

···

       5
        
           plug :accepts, ["json"]

     

       6
        
         end

     

       7
        
       

     

       8
       -
         scope "/api", EslHnWeb do

     

       9
        
           pipe_through :api

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       10
        
         end

     

       11
        
       

     

       12
        
         if Application.compile_env(:esl_hn, :dev_routes) do

···

       5
        
           plug :accepts, ["json"]

     

       6
        
         end

     

       7
        
       

     

       8
       +
         scope "/", EslHnWeb do

     

       9
        
           pipe_through :api

     

       10
       +
       

     

       11
       +
           get "/", API.Controller, :index

     

       12
       +
           get "/:id", API.Controller, :show

     

       13
        
         end

     

       14
        
       

     

       15
        
         if Application.compile_env(:esl_hn, :dev_routes) do

+13

lib/esl_hn_web/telemetry.ex

···

       47
        
               tags: [:event],

     

       48
        
               unit: {:native, :millisecond}

     

       49
        
             ),

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       50
        
       

     

       51
        
             # VM Metrics

     

       52
        
             summary("vm.memory.total", unit: {:byte, :kilobyte}),

···

       47
        
               tags: [:event],

     

       48
        
               unit: {:native, :millisecond}

     

       49
        
             ),

     

       50
       +
             summary("esl_hn.refresh.stop.duration",

     

       51
       +
               unit: {:native, :millisecond}

     

       52
       +
             ),

     

       53
       +
             sum("esl_hn.refresh.stop.new"),

     

       54
       +
             sum("esl_hn.refresh.stop.old"),

     

       55
       +
             counter("esl_hn.refresh.stop.failed"),

     

       56
       +
             sum("esl_hn.cache.fetch.stop.hit"),

     

       57
       +
             sum("esl_hn.cache.fetch.stop.miss"),

     

       58
       +
             sum("esl_hn.cache.write.stop.count"),

     

       59
       +
             summary("req.request.pipeline.stop.duration",

     

       60
       +
               tags: [:url],

     

       61
       +
               unit: {:native, :millisecond}

     

       62
       +
             ),

     

       63
        
       

     

       64
        
             # VM Metrics

     

       65
        
             summary("vm.memory.total", unit: {:byte, :kilobyte}),

+21 -2

mix.exs

···

       16
        
         def application do

     

       17
        
           [

     

       18
        
             mod: {EslHn.Application, []},

     

       19
       -
             extra_applications: [:logger, :runtime_tools]

     

       20
        
           ]

     

       21
        
         end

     

       22
        
       

     
···

       26
        
         defp deps do

     

       27
        
           [

     

       28
        
             {:phoenix, "~> 1.7.21"},

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       29
        
             {:phoenix_live_dashboard, "~> 0.8.3"},

     

       30
        
             {:telemetry_metrics, "~> 1.0"},

     

       31
        
             {:telemetry_poller, "~> 1.0"},

     

       32
       -
             {:bandit, "~> 1.5"}

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       33
        
           ]

     

       34
        
         end

     

       35

···

       16
        
         def application do

     

       17
        
           [

     

       18
        
             mod: {EslHn.Application, []},

     

       19
       +
             extra_applications: [:logger, :runtime_tools, :os_mon]

     

       20
        
           ]

     

       21
        
         end

     

       22
        
       

     
···

       26
        
         defp deps do

     

       27
        
           [

     

       28
        
             {:phoenix, "~> 1.7.21"},

     

       29
       +
             {:bandit, "~> 1.5"},

     

       30
       +
       

     

       31
       +
             # HackerNews client

     

       32
       +
             {:req, "~> 0.5.15"},

     

       33
       +
             {:req_telemetry,

     

       34
       +
              github: "hauleth/req_telemetry", ref: "template-paths-as-metadata"},

     

       35
       +
             {:ecto, "~> 3.13"},

     

       36
       +
       

     

       37
       +
             # Monitoring

     

       38
        
             {:phoenix_live_dashboard, "~> 0.8.3"},

     

       39
        
             {:telemetry_metrics, "~> 1.0"},

     

       40
        
             {:telemetry_poller, "~> 1.0"},

     

       41
       +
       

     

       42
       +
             # Linting

     

       43
       +
             {:credo, ">= 0.0.0", only: [:dev]},

     

       44
       +
             {:dialyxir, ">= 0.0.0", only: [:dev]},

     

       45
       +
       

     

       46
       +
             # Testing

     

       47
       +
             {:test_server, "~> 0.1.21", only: [:test]},

     

       48
       +
             {:stream_data, "~> 1.0", only: [:dev, :test]},

     

       49
       +
             # Websocket client for testing custom socket transport, I have no idea how

     

       50
       +
             # ti can test it better

     

       51
       +
             {:fresh, "~> 0.4.4", only: [:test]}

     

       52
        
           ]

     

       53
        
         end

     

       54

+18 -1

mix.lock

···

       1
        
       %{

     

       2
        
         "bandit": {:hex, :bandit, "1.7.0", "d1564f30553c97d3e25f9623144bb8df11f3787a26733f00b21699a128105c0c", [:mix], [{:hpax, "~> 1.0", [hex: :hpax, repo: "hexpm", optional: false]}, {:plug, "~> 1.18", [hex: :plug, repo: "hexpm", optional: false]}, {:telemetry, "~> 0.4 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}, {:thousand_island, "~> 1.0", [hex: :thousand_island, repo: "hexpm", optional: false]}, {:websock, "~> 0.5", [hex: :websock, repo: "hexpm", optional: false]}], "hexpm", "3e2f7a98c7a11f48d9d8c037f7177cd39778e74d55c7af06fe6227c742a8168a"},

     

       0
        
       
     

       3
        
         "castore": {:hex, :castore, "1.0.14", "4582dd7d630b48cf5e1ca8d3d42494db51e406b7ba704e81fbd401866366896a", [:mix], [], "hexpm", "7bc1b65249d31701393edaaac18ec8398d8974d52c647b7904d01b964137b9f4"},

     

       4
       -
         "dns_cluster": {:hex, :dns_cluster, "0.1.3", "0bc20a2c88ed6cc494f2964075c359f8c2d00e1bf25518a6a6c7fd277c9b0c66", [:mix], [], "hexpm", "46cb7c4a1b3e52c7ad4cbe33ca5079fbde4840dedeafca2baf77996c2da1bc33"},

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       5
        
         "hpax": {:hex, :hpax, "1.0.3", "ed67ef51ad4df91e75cc6a1494f851850c0bd98ebc0be6e81b026e765ee535aa", [:mix], [], "hexpm", "8eab6e1cfa8d5918c2ce4ba43588e894af35dbd8e91e6e55c817bca5847df34a"},

     

       6
        
         "jason": {:hex, :jason, "1.4.4", "b9226785a9aa77b6857ca22832cffa5d5011a667207eb2a0ad56adb5db443b8a", [:mix], [{:decimal, "~> 1.0 or ~> 2.0", [hex: :decimal, repo: "hexpm", optional: true]}], "hexpm", "c5eb0cab91f094599f94d55bc63409236a8ec69a21a67814529e8d5f6cc90b3b"},

     

       7
        
         "mime": {:hex, :mime, "2.0.7", "b8d739037be7cd402aee1ba0306edfdef982687ee7e9859bee6198c1e7e2f128", [:mix], [], "hexpm", "6171188e399ee16023ffc5b76ce445eb6d9672e2e241d2df6050f3c771e80ccd"},

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       8
        
         "phoenix": {:hex, :phoenix, "1.7.21", "14ca4f1071a5f65121217d6b57ac5712d1857e40a0833aff7a691b7870fc9a3b", [:mix], [{:castore, ">= 0.0.0", [hex: :castore, repo: "hexpm", optional: false]}, {:jason, "~> 1.0", [hex: :jason, repo: "hexpm", optional: true]}, {:phoenix_pubsub, "~> 2.1", [hex: :phoenix_pubsub, repo: "hexpm", optional: false]}, {:phoenix_template, "~> 1.0", [hex: :phoenix_template, repo: "hexpm", optional: false]}, {:phoenix_view, "~> 2.0", [hex: :phoenix_view, repo: "hexpm", optional: true]}, {:plug, "~> 1.14", [hex: :plug, repo: "hexpm", optional: false]}, {:plug_cowboy, "~> 2.7", [hex: :plug_cowboy, repo: "hexpm", optional: true]}, {:plug_crypto, "~> 1.2 or ~> 2.0", [hex: :plug_crypto, repo: "hexpm", optional: false]}, {:telemetry, "~> 0.4 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}, {:websock_adapter, "~> 0.5.3", [hex: :websock_adapter, repo: "hexpm", optional: false]}], "hexpm", "336dce4f86cba56fed312a7d280bf2282c720abb6074bdb1b61ec8095bdd0bc9"},

     

       9
        
         "phoenix_html": {:hex, :phoenix_html, "4.2.1", "35279e2a39140068fc03f8874408d58eef734e488fc142153f055c5454fd1c08", [:mix], [], "hexpm", "cff108100ae2715dd959ae8f2a8cef8e20b593f8dfd031c9cba92702cf23e053"},

     

       10
        
         "phoenix_live_dashboard": {:hex, :phoenix_live_dashboard, "0.8.7", "405880012cb4b706f26dd1c6349125bfc903fb9e44d1ea668adaf4e04d4884b7", [:mix], [{:ecto, "~> 3.6.2 or ~> 3.7", [hex: :ecto, repo: "hexpm", optional: true]}, {:ecto_mysql_extras, "~> 0.5", [hex: :ecto_mysql_extras, repo: "hexpm", optional: true]}, {:ecto_psql_extras, "~> 0.7", [hex: :ecto_psql_extras, repo: "hexpm", optional: true]}, {:ecto_sqlite3_extras, "~> 1.1.7 or ~> 1.2.0", [hex: :ecto_sqlite3_extras, repo: "hexpm", optional: true]}, {:mime, "~> 1.6 or ~> 2.0", [hex: :mime, repo: "hexpm", optional: false]}, {:phoenix_live_view, "~> 0.19 or ~> 1.0", [hex: :phoenix_live_view, repo: "hexpm", optional: false]}, {:telemetry_metrics, "~> 0.6 or ~> 1.0", [hex: :telemetry_metrics, repo: "hexpm", optional: false]}], "hexpm", "3a8625cab39ec261d48a13b7468dc619c0ede099601b084e343968309bd4d7d7"},

     
···

       13
        
         "phoenix_template": {:hex, :phoenix_template, "1.0.4", "e2092c132f3b5e5b2d49c96695342eb36d0ed514c5b252a77048d5969330d639", [:mix], [{:phoenix_html, "~> 2.14.2 or ~> 3.0 or ~> 4.0", [hex: :phoenix_html, repo: "hexpm", optional: true]}], "hexpm", "2c0c81f0e5c6753faf5cca2f229c9709919aba34fab866d3bc05060c9c444206"},

     

       14
        
         "plug": {:hex, :plug, "1.18.1", "5067f26f7745b7e31bc3368bc1a2b818b9779faa959b49c934c17730efc911cf", [:mix], [{:mime, "~> 1.0 or ~> 2.0", [hex: :mime, repo: "hexpm", optional: false]}, {:plug_crypto, "~> 1.1.1 or ~> 1.2 or ~> 2.0", [hex: :plug_crypto, repo: "hexpm", optional: false]}, {:telemetry, "~> 0.4.3 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm", "57a57db70df2b422b564437d2d33cf8d33cd16339c1edb190cd11b1a3a546cc2"},

     

       15
        
         "plug_crypto": {:hex, :plug_crypto, "2.1.1", "19bda8184399cb24afa10be734f84a16ea0a2bc65054e23a62bb10f06bc89491", [:mix], [], "hexpm", "6470bce6ffe41c8bd497612ffde1a7e4af67f36a15eea5f921af71cf3e11247c"},

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       16
        
         "telemetry": {:hex, :telemetry, "1.3.0", "fedebbae410d715cf8e7062c96a1ef32ec22e764197f70cda73d82778d61e7a2", [:rebar3], [], "hexpm", "7015fc8919dbe63764f4b4b87a95b7c0996bd539e0d499be6ec9d7f3875b79e6"},

     

       17
        
         "telemetry_metrics": {:hex, :telemetry_metrics, "1.1.0", "5bd5f3b5637e0abea0426b947e3ce5dd304f8b3bc6617039e2b5a008adc02f8f", [:mix], [{:telemetry, "~> 0.4 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm", "e7b79e8ddfde70adb6db8a6623d1778ec66401f366e9a8f5dd0955c56bc8ce67"},

     

       18
        
         "telemetry_poller": {:hex, :telemetry_poller, "1.3.0", "d5c46420126b5ac2d72bc6580fb4f537d35e851cc0f8dbd571acf6d6e10f5ec7", [:rebar3], [{:telemetry, "~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm", "51f18bed7128544a50f75897db9974436ea9bfba560420b646af27a9a9b35211"},

     

       0
        
       
     

       19
        
         "thousand_island": {:hex, :thousand_island, "1.3.14", "ad45ebed2577b5437582bcc79c5eccd1e2a8c326abf6a3464ab6c06e2055a34a", [:mix], [{:telemetry, "~> 0.4 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm", "d0d24a929d31cdd1d7903a4fe7f2409afeedff092d277be604966cd6aa4307ef"},

     

       20
        
         "websock": {:hex, :websock, "0.5.3", "2f69a6ebe810328555b6fe5c831a851f485e303a7c8ce6c5f675abeb20ebdadc", [:mix], [], "hexpm", "6105453d7fac22c712ad66fab1d45abdf049868f253cf719b625151460b8b453"},

     

       21
        
         "websock_adapter": {:hex, :websock_adapter, "0.5.8", "3b97dc94e407e2d1fc666b2fb9acf6be81a1798a2602294aac000260a7c4a47d", [:mix], [{:bandit, ">= 0.6.0", [hex: :bandit, repo: "hexpm", optional: true]}, {:plug, "~> 1.14", [hex: :plug, repo: "hexpm", optional: false]}, {:plug_cowboy, "~> 2.6", [hex: :plug_cowboy, repo: "hexpm", optional: true]}, {:websock, "~> 0.5", [hex: :websock, repo: "hexpm", optional: false]}], "hexpm", "315b9a1865552212b5f35140ad194e67ce31af45bcee443d4ecb96b5fd3f3782"},

     

       0
        
       
     

       22
        
       }

···

       1
        
       %{

     

       2
        
         "bandit": {:hex, :bandit, "1.7.0", "d1564f30553c97d3e25f9623144bb8df11f3787a26733f00b21699a128105c0c", [:mix], [{:hpax, "~> 1.0", [hex: :hpax, repo: "hexpm", optional: false]}, {:plug, "~> 1.18", [hex: :plug, repo: "hexpm", optional: false]}, {:telemetry, "~> 0.4 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}, {:thousand_island, "~> 1.0", [hex: :thousand_island, repo: "hexpm", optional: false]}, {:websock, "~> 0.5", [hex: :websock, repo: "hexpm", optional: false]}], "hexpm", "3e2f7a98c7a11f48d9d8c037f7177cd39778e74d55c7af06fe6227c742a8168a"},

     

       3
       +
         "bunt": {:hex, :bunt, "1.0.0", "081c2c665f086849e6d57900292b3a161727ab40431219529f13c4ddcf3e7a44", [:mix], [], "hexpm", "dc5f86aa08a5f6fa6b8096f0735c4e76d54ae5c9fa2c143e5a1fc7c1cd9bb6b5"},

     

       4
        
         "castore": {:hex, :castore, "1.0.14", "4582dd7d630b48cf5e1ca8d3d42494db51e406b7ba704e81fbd401866366896a", [:mix], [], "hexpm", "7bc1b65249d31701393edaaac18ec8398d8974d52c647b7904d01b964137b9f4"},

     

       5
       +
         "credo": {:hex, :credo, "1.7.12", "9e3c20463de4b5f3f23721527fcaf16722ec815e70ff6c60b86412c695d426c1", [:mix], [{:bunt, "~> 0.2.1 or ~> 1.0", [hex: :bunt, repo: "hexpm", optional: false]}, {:file_system, "~> 0.2 or ~> 1.0", [hex: :file_system, repo: "hexpm", optional: false]}, {:jason, "~> 1.0", [hex: :jason, repo: "hexpm", optional: false]}], "hexpm", "8493d45c656c5427d9c729235b99d498bd133421f3e0a683e5c1b561471291e5"},

     

       6
       +
         "decimal": {:hex, :decimal, "2.3.0", "3ad6255aa77b4a3c4f818171b12d237500e63525c2fd056699967a3e7ea20f62", [:mix], [], "hexpm", "a4d66355cb29cb47c3cf30e71329e58361cfcb37c34235ef3bf1d7bf3773aeac"},

     

       7
       +
         "dialyxir": {:hex, :dialyxir, "1.4.5", "ca1571ac18e0f88d4ab245f0b60fa31ff1b12cbae2b11bd25d207f865e8ae78a", [:mix], [{:erlex, ">= 0.2.7", [hex: :erlex, repo: "hexpm", optional: false]}], "hexpm", "b0fb08bb8107c750db5c0b324fa2df5ceaa0f9307690ee3c1f6ba5b9eb5d35c3"},

     

       8
       +
         "ecto": {:hex, :ecto, "3.13.2", "7d0c0863f3fc8d71d17fc3ad3b9424beae13f02712ad84191a826c7169484f01", [:mix], [{:decimal, "~> 2.0", [hex: :decimal, repo: "hexpm", optional: false]}, {:jason, "~> 1.0", [hex: :jason, repo: "hexpm", optional: true]}, {:telemetry, "~> 0.4 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm", "669d9291370513ff56e7b7e7081b7af3283d02e046cf3d403053c557894a0b3e"},

     

       9
       +
         "erlex": {:hex, :erlex, "0.2.7", "810e8725f96ab74d17aac676e748627a07bc87eb950d2b83acd29dc047a30595", [:mix], [], "hexpm", "3ed95f79d1a844c3f6bf0cea61e0d5612a42ce56da9c03f01df538685365efb0"},

     

       10
       +
         "file_system": {:hex, :file_system, "1.1.0", "08d232062284546c6c34426997dd7ef6ec9f8bbd090eb91780283c9016840e8f", [:mix], [], "hexpm", "bfcf81244f416871f2a2e15c1b515287faa5db9c6bcf290222206d120b3d43f6"},

     

       11
       +
         "finch": {:hex, :finch, "0.20.0", "5330aefb6b010f424dcbbc4615d914e9e3deae40095e73ab0c1bb0968933cadf", [:mix], [{:mime, "~> 1.0 or ~> 2.0", [hex: :mime, repo: "hexpm", optional: false]}, {:mint, "~> 1.6.2 or ~> 1.7", [hex: :mint, repo: "hexpm", optional: false]}, {:nimble_options, "~> 0.4 or ~> 1.0", [hex: :nimble_options, repo: "hexpm", optional: false]}, {:nimble_pool, "~> 1.1", [hex: :nimble_pool, repo: "hexpm", optional: false]}, {:telemetry, "~> 0.4 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm", "2658131a74d051aabfcba936093c903b8e89da9a1b63e430bee62045fa9b2ee2"},

     

       12
       +
         "fresh": {:hex, :fresh, "0.4.4", "9d67a1d97112e70f4dfabd63b40e4b182ef64dfa84a2d9ee175eb4e34591e9f7", [:mix], [{:castore, "~> 1.0", [hex: :castore, repo: "hexpm", optional: false]}, {:mint, "~> 1.5", [hex: :mint, repo: "hexpm", optional: false]}, {:mint_web_socket, "~> 1.0", [hex: :mint_web_socket, repo: "hexpm", optional: false]}], "hexpm", "ba21d3fa0aa77bf18ca397e4c851de7432bb3f9c170a1645a16e09e4bba54315"},

     

       13
        
         "hpax": {:hex, :hpax, "1.0.3", "ed67ef51ad4df91e75cc6a1494f851850c0bd98ebc0be6e81b026e765ee535aa", [:mix], [], "hexpm", "8eab6e1cfa8d5918c2ce4ba43588e894af35dbd8e91e6e55c817bca5847df34a"},

     

       14
        
         "jason": {:hex, :jason, "1.4.4", "b9226785a9aa77b6857ca22832cffa5d5011a667207eb2a0ad56adb5db443b8a", [:mix], [{:decimal, "~> 1.0 or ~> 2.0", [hex: :decimal, repo: "hexpm", optional: true]}], "hexpm", "c5eb0cab91f094599f94d55bc63409236a8ec69a21a67814529e8d5f6cc90b3b"},

     

       15
        
         "mime": {:hex, :mime, "2.0.7", "b8d739037be7cd402aee1ba0306edfdef982687ee7e9859bee6198c1e7e2f128", [:mix], [], "hexpm", "6171188e399ee16023ffc5b76ce445eb6d9672e2e241d2df6050f3c771e80ccd"},

     

       16
       +
         "mint": {:hex, :mint, "1.7.1", "113fdb2b2f3b59e47c7955971854641c61f378549d73e829e1768de90fc1abf1", [:mix], [{:castore, "~> 0.1.0 or ~> 1.0", [hex: :castore, repo: "hexpm", optional: true]}, {:hpax, "~> 0.1.1 or ~> 0.2.0 or ~> 1.0", [hex: :hpax, repo: "hexpm", optional: false]}], "hexpm", "fceba0a4d0f24301ddee3024ae116df1c3f4bb7a563a731f45fdfeb9d39a231b"},

     

       17
       +
         "mint_web_socket": {:hex, :mint_web_socket, "1.0.4", "0b539116dbb3d3f861cdf5e15e269a933cb501c113a14db7001a3157d96ffafd", [:mix], [{:mint, ">= 1.4.1 and < 2.0.0-0", [hex: :mint, repo: "hexpm", optional: false]}], "hexpm", "027d4c5529c45a4ba0ce27a01c0f35f284a5468519c045ca15f43decb360a991"},

     

       18
       +
         "nimble_options": {:hex, :nimble_options, "1.1.1", "e3a492d54d85fc3fd7c5baf411d9d2852922f66e69476317787a7b2bb000a61b", [:mix], [], "hexpm", "821b2470ca9442c4b6984882fe9bb0389371b8ddec4d45a9504f00a66f650b44"},

     

       19
       +
         "nimble_pool": {:hex, :nimble_pool, "1.1.0", "bf9c29fbdcba3564a8b800d1eeb5a3c58f36e1e11d7b7fb2e084a643f645f06b", [:mix], [], "hexpm", "af2e4e6b34197db81f7aad230c1118eac993acc0dae6bc83bac0126d4ae0813a"},

     

       20
        
         "phoenix": {:hex, :phoenix, "1.7.21", "14ca4f1071a5f65121217d6b57ac5712d1857e40a0833aff7a691b7870fc9a3b", [:mix], [{:castore, ">= 0.0.0", [hex: :castore, repo: "hexpm", optional: false]}, {:jason, "~> 1.0", [hex: :jason, repo: "hexpm", optional: true]}, {:phoenix_pubsub, "~> 2.1", [hex: :phoenix_pubsub, repo: "hexpm", optional: false]}, {:phoenix_template, "~> 1.0", [hex: :phoenix_template, repo: "hexpm", optional: false]}, {:phoenix_view, "~> 2.0", [hex: :phoenix_view, repo: "hexpm", optional: true]}, {:plug, "~> 1.14", [hex: :plug, repo: "hexpm", optional: false]}, {:plug_cowboy, "~> 2.7", [hex: :plug_cowboy, repo: "hexpm", optional: true]}, {:plug_crypto, "~> 1.2 or ~> 2.0", [hex: :plug_crypto, repo: "hexpm", optional: false]}, {:telemetry, "~> 0.4 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}, {:websock_adapter, "~> 0.5.3", [hex: :websock_adapter, repo: "hexpm", optional: false]}], "hexpm", "336dce4f86cba56fed312a7d280bf2282c720abb6074bdb1b61ec8095bdd0bc9"},

     

       21
        
         "phoenix_html": {:hex, :phoenix_html, "4.2.1", "35279e2a39140068fc03f8874408d58eef734e488fc142153f055c5454fd1c08", [:mix], [], "hexpm", "cff108100ae2715dd959ae8f2a8cef8e20b593f8dfd031c9cba92702cf23e053"},

     

       22
        
         "phoenix_live_dashboard": {:hex, :phoenix_live_dashboard, "0.8.7", "405880012cb4b706f26dd1c6349125bfc903fb9e44d1ea668adaf4e04d4884b7", [:mix], [{:ecto, "~> 3.6.2 or ~> 3.7", [hex: :ecto, repo: "hexpm", optional: true]}, {:ecto_mysql_extras, "~> 0.5", [hex: :ecto_mysql_extras, repo: "hexpm", optional: true]}, {:ecto_psql_extras, "~> 0.7", [hex: :ecto_psql_extras, repo: "hexpm", optional: true]}, {:ecto_sqlite3_extras, "~> 1.1.7 or ~> 1.2.0", [hex: :ecto_sqlite3_extras, repo: "hexpm", optional: true]}, {:mime, "~> 1.6 or ~> 2.0", [hex: :mime, repo: "hexpm", optional: false]}, {:phoenix_live_view, "~> 0.19 or ~> 1.0", [hex: :phoenix_live_view, repo: "hexpm", optional: false]}, {:telemetry_metrics, "~> 0.6 or ~> 1.0", [hex: :telemetry_metrics, repo: "hexpm", optional: false]}], "hexpm", "3a8625cab39ec261d48a13b7468dc619c0ede099601b084e343968309bd4d7d7"},

     
···

       25
        
         "phoenix_template": {:hex, :phoenix_template, "1.0.4", "e2092c132f3b5e5b2d49c96695342eb36d0ed514c5b252a77048d5969330d639", [:mix], [{:phoenix_html, "~> 2.14.2 or ~> 3.0 or ~> 4.0", [hex: :phoenix_html, repo: "hexpm", optional: true]}], "hexpm", "2c0c81f0e5c6753faf5cca2f229c9709919aba34fab866d3bc05060c9c444206"},

     

       26
        
         "plug": {:hex, :plug, "1.18.1", "5067f26f7745b7e31bc3368bc1a2b818b9779faa959b49c934c17730efc911cf", [:mix], [{:mime, "~> 1.0 or ~> 2.0", [hex: :mime, repo: "hexpm", optional: false]}, {:plug_crypto, "~> 1.1.1 or ~> 1.2 or ~> 2.0", [hex: :plug_crypto, repo: "hexpm", optional: false]}, {:telemetry, "~> 0.4.3 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm", "57a57db70df2b422b564437d2d33cf8d33cd16339c1edb190cd11b1a3a546cc2"},

     

       27
        
         "plug_crypto": {:hex, :plug_crypto, "2.1.1", "19bda8184399cb24afa10be734f84a16ea0a2bc65054e23a62bb10f06bc89491", [:mix], [], "hexpm", "6470bce6ffe41c8bd497612ffde1a7e4af67f36a15eea5f921af71cf3e11247c"},

     

       28
       +
         "req": {:hex, :req, "0.5.15", "662020efb6ea60b9f0e0fac9be88cd7558b53fe51155a2d9899de594f9906ba9", [:mix], [{:brotli, "~> 0.3.1", [hex: :brotli, repo: "hexpm", optional: true]}, {:ezstd, "~> 1.0", [hex: :ezstd, repo: "hexpm", optional: true]}, {:finch, "~> 0.17", [hex: :finch, repo: "hexpm", optional: false]}, {:jason, "~> 1.0", [hex: :jason, repo: "hexpm", optional: false]}, {:mime, "~> 2.0.6 or ~> 2.1", [hex: :mime, repo: "hexpm", optional: false]}, {:nimble_csv, "~> 1.0", [hex: :nimble_csv, repo: "hexpm", optional: true]}, {:plug, "~> 1.0", [hex: :plug, repo: "hexpm", optional: true]}], "hexpm", "a6513a35fad65467893ced9785457e91693352c70b58bbc045b47e5eb2ef0c53"},

     

       29
       +
         "req_telemetry": {:git, "https://github.com/hauleth/req_telemetry.git", "449ddbc2f409fb2ea9efe4ad2a2b229cd01aa153", [ref: "template-paths-as-metadata"]},

     

       30
       +
         "stream_data": {:hex, :stream_data, "1.2.0", "58dd3f9e88afe27dc38bef26fce0c84a9e7a96772b2925c7b32cd2435697a52b", [:mix], [], "hexpm", "eb5c546ee3466920314643edf68943a5b14b32d1da9fe01698dc92b73f89a9ed"},

     

       31
        
         "telemetry": {:hex, :telemetry, "1.3.0", "fedebbae410d715cf8e7062c96a1ef32ec22e764197f70cda73d82778d61e7a2", [:rebar3], [], "hexpm", "7015fc8919dbe63764f4b4b87a95b7c0996bd539e0d499be6ec9d7f3875b79e6"},

     

       32
        
         "telemetry_metrics": {:hex, :telemetry_metrics, "1.1.0", "5bd5f3b5637e0abea0426b947e3ce5dd304f8b3bc6617039e2b5a008adc02f8f", [:mix], [{:telemetry, "~> 0.4 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm", "e7b79e8ddfde70adb6db8a6623d1778ec66401f366e9a8f5dd0955c56bc8ce67"},

     

       33
        
         "telemetry_poller": {:hex, :telemetry_poller, "1.3.0", "d5c46420126b5ac2d72bc6580fb4f537d35e851cc0f8dbd571acf6d6e10f5ec7", [:rebar3], [{:telemetry, "~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm", "51f18bed7128544a50f75897db9974436ea9bfba560420b646af27a9a9b35211"},

     

       34
       +
         "test_server": {:hex, :test_server, "0.1.21", "a22e3f5bc30278c4b9bf53f6721dc951e18e6e10ce5505481dc36ba774fc944c", [:mix], [{:bandit, ">= 1.4.0", [hex: :bandit, repo: "hexpm", optional: true]}, {:plug, "~> 1.14", [hex: :plug, repo: "hexpm", optional: false]}, {:plug_cowboy, ">= 2.0.0", [hex: :plug_cowboy, repo: "hexpm", optional: true]}, {:x509, "~> 0.6", [hex: :x509, repo: "hexpm", optional: false]}], "hexpm", "3b704bd0bbba389106ca3331a4a75d5e6f6142f4dc4cb20d91f960b932bf0523"},

     

       35
        
         "thousand_island": {:hex, :thousand_island, "1.3.14", "ad45ebed2577b5437582bcc79c5eccd1e2a8c326abf6a3464ab6c06e2055a34a", [:mix], [{:telemetry, "~> 0.4 or ~> 1.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm", "d0d24a929d31cdd1d7903a4fe7f2409afeedff092d277be604966cd6aa4307ef"},

     

       36
        
         "websock": {:hex, :websock, "0.5.3", "2f69a6ebe810328555b6fe5c831a851f485e303a7c8ce6c5f675abeb20ebdadc", [:mix], [], "hexpm", "6105453d7fac22c712ad66fab1d45abdf049868f253cf719b625151460b8b453"},

     

       37
        
         "websock_adapter": {:hex, :websock_adapter, "0.5.8", "3b97dc94e407e2d1fc666b2fb9acf6be81a1798a2602294aac000260a7c4a47d", [:mix], [{:bandit, ">= 0.6.0", [hex: :bandit, repo: "hexpm", optional: true]}, {:plug, "~> 1.14", [hex: :plug, repo: "hexpm", optional: false]}, {:plug_cowboy, "~> 2.6", [hex: :plug_cowboy, repo: "hexpm", optional: true]}, {:websock, "~> 0.5", [hex: :websock, repo: "hexpm", optional: false]}], "hexpm", "315b9a1865552212b5f35140ad194e67ce31af45bcee443d4ecb96b5fd3f3782"},

     

       38
       +
         "x509": {:hex, :x509, "0.9.2", "a75aa605348abd905990f3d2dc1b155fcde4e030fa2f90c4a91534405dce0f6e", [:mix], [], "hexpm", "4c5ede75697e565d4b0f5be04c3b71bb1fd3a090ea243af4bd7dae144e48cfc7"},

     

       39
        
       }

+82

test/esl_hn/cache_test.exs

···

       1
       +
       defmodule EslHn.CacheTest do

     

       2
       +
         use ExUnit.Case, async: true

     

       3
       +
         use ExUnitProperties

     

       4
       +
       

     

       5
       +
         @subject EslHn.Cache

     

       6
       +
       

     

       7
       +
         doctest @subject

     

       8
       +
       

     

       9
       +
         describe "unnamed cache" do

     

       10
       +
           property "we can read written data" do

     

       11
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       12
       +
       

     

       13
       +
             check all(key <- term(), data <- term()) do

     

       14
       +
               assert :ok == @subject.write(tid, key, data)

     

       15
       +
               assert {:ok, data} == @subject.fetch(tid, key)

     

       16
       +
             end

     

       17
       +
           end

     

       18
       +
       

     

       19
       +
           test "fetching non existent key result in error" do

     

       20
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       21
       +
       

     

       22
       +
             assert :error == @subject.fetch(tid, :non_existent)

     

       23
       +
           end

     

       24
       +
         end

     

       25
       +
       

     

       26
       +
         describe "named cache" do

     

       27
       +
           property "we can read written data", ctx do

     

       28
       +
             name = ctx.test

     

       29
       +
             assert {:ok, _pid, _tid} = start_supervised({@subject, name: name})

     

       30
       +
       

     

       31
       +
             check all(key <- term(), data <- term()) do

     

       32
       +
               assert :ok == @subject.write(name, key, data)

     

       33
       +
               assert {:ok, data} == @subject.fetch(name, key)

     

       34
       +
             end

     

       35
       +
           end

     

       36
       +
         end

     

       37
       +
       

     

       38
       +
         describe "get/3" do

     

       39
       +
           test "default value for non-existent keys is `nil`" do

     

       40
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       41
       +
       

     

       42
       +
             assert nil == @subject.get(tid, :non_existent)

     

       43
       +
           end

     

       44
       +
       

     

       45
       +
           property "fetching non-existent data returns default value" do

     

       46
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       47
       +
       

     

       48
       +
             check all(key <- term(), data <- term()) do

     

       49
       +
               assert data == @subject.get(tid, key, data)

     

       50
       +
             end

     

       51
       +
           end

     

       52
       +
       

     

       53
       +
           property "fetching existing data returns that data" do

     

       54
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       55
       +
       

     

       56
       +
             check all(key <- term(), data <- term()) do

     

       57
       +
               assert :ok == @subject.write(tid, key, data)

     

       58
       +
       

     

       59
       +
               assert data == @subject.get(tid, key)

     

       60
       +
             end

     

       61
       +
           end

     

       62
       +
         end

     

       63
       +
       

     

       64
       +
         describe "prune/2" do

     

       65
       +
           test "removing non-existent data is no-op" do

     

       66
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       67
       +
       

     

       68
       +
             assert :ok == @subject.prune(tid, :non_existent)

     

       69
       +
           end

     

       70
       +
       

     

       71
       +
           property "we can read written data" do

     

       72
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       73
       +
       

     

       74
       +
             check all(key <- term(), data <- term()) do

     

       75
       +
               assert :ok == @subject.write(tid, key, data)

     

       76
       +
               assert {:ok, data} == @subject.fetch(tid, key)

     

       77
       +
               assert :ok == @subject.prune(tid, key)

     

       78
       +
               assert :error == @subject.fetch(tid, key)

     

       79
       +
             end

     

       80
       +
           end

     

       81
       +
         end

     

       82
       +
       end

+49

test/esl_hn/config_reader_test.exs

···

       1
       +
       defmodule EslHn.ConfigReaderTest do

     

       2
       +
         # Theoretically as we use system environment this shouldn't be async-safe,

     

       3
       +
         # but due to fact that all these functions use unique environment variable

     

       4
       +
         # name, and that name has little chance to being used I thing we can live with

     

       5
       +
         # that and use that code in given way.

     

       6
       +
         use ExUnit.Case, async: true

     

       7
       +
       

     

       8
       +
         @subject EslHn.ConfigReader

     

       9
       +
       

     

       10
       +
         doctest @subject

     

       11
       +
       

     

       12
       +
         setup ctx do

     

       13
       +
           env = to_string(ctx.test)

     

       14
       +
       

     

       15
       +
           on_exit(fn ->

     

       16
       +
             System.delete_env(env)

     

       17
       +
           end)

     

       18
       +
       

     

       19
       +
           {:ok, env: env}

     

       20
       +
         end

     

       21
       +
       

     

       22
       +
         describe "duration/2" do

     

       23
       +
           test "if environment variable is not set, then return default", ctx do

     

       24
       +
             assert 2137 == @subject.duration(ctx.env, 2137)

     

       25
       +
           end

     

       26
       +
       

     

       27
       +
           test "if environment variable is empty, then default is returned", ctx do

     

       28
       +
             System.put_env(ctx.env, "")

     

       29
       +
       

     

       30
       +
             assert 2137 == @subject.duration(ctx.env, 2137)

     

       31
       +
           end

     

       32
       +
       

     

       33
       +
           test "if environment variable contains integer it will be parsed", ctx do

     

       34
       +
             System.put_env(ctx.env, "420")

     

       35
       +
       

     

       36
       +
             assert 420 == @subject.duration(ctx.env, 2137)

     

       37
       +
           end

     

       38
       +
       

     

       39
       +
           for {suffix, name} <- [s: :seconds, m: :minutes, h: :hours] do

     

       40
       +
             test "if environment variable contains integer with `#{suffix}` suffix it will be treated as #{name}",

     

       41
       +
                  ctx do

     

       42
       +
               System.put_env(ctx.env, unquote("420#{suffix}"))

     

       43
       +
       

     

       44
       +
               assert apply(:timer, unquote(name), [420]) ==

     

       45
       +
                        @subject.duration(ctx.env, 2137)

     

       46
       +
             end

     

       47
       +
           end

     

       48
       +
         end

     

       49
       +
       end

+117

test/esl_hn/hn_test.exs

···

       1
       +
       defmodule EslHn.HnTest do

     

       2
       +
         use ExUnit.Case, async: true

     

       3
       +
       

     

       4
       +
         alias Plug.Conn

     

       5
       +
       

     

       6
       +
         @subject EslHn.Hn

     

       7
       +
       

     

       8
       +
         doctest @subject

     

       9
       +
       

     

       10
       +
         describe "top_stories_ids/1" do

     

       11
       +
           test "on success returns list of IDs" do

     

       12
       +
             list = [1, 2, 3, 4]

     

       13
       +
       

     

       14
       +
             TestServer.add("/topstories.json",

     

       15
       +
               to: fn conn ->

     

       16
       +
                 Conn.send_resp(conn, 200, JSON.encode!(list))

     

       17
       +
               end

     

       18
       +
             )

     

       19
       +
       

     

       20
       +
             assert {:ok, list} == @subject.top_stories_ids(base_url: TestServer.url())

     

       21
       +
           end

     

       22
       +
       

     

       23
       +
           test "returns error on non 200 response" do

     

       24
       +
             list = [1, 2, 3, 4]

     

       25
       +
       

     

       26
       +
             TestServer.add("/topstories.json",

     

       27
       +
               to: fn conn ->

     

       28
       +
                 Conn.send_resp(conn, :im_a_teapot, JSON.encode!(list))

     

       29
       +
               end

     

       30
       +
             )

     

       31
       +
       

     

       32
       +
             assert {:error, {:http_response, 418, _}} =

     

       33
       +
                      @subject.top_stories_ids(base_url: TestServer.url())

     

       34
       +
           end

     

       35
       +
       

     

       36
       +
           test "returns error in case of network error" do

     

       37
       +
             assert {:error, _} =

     

       38
       +
                      @subject.top_stories_ids(

     

       39
       +
                        adapter: fn request ->

     

       40
       +
                          {request, %RuntimeError{message: "oops"}}

     

       41
       +
                        end

     

       42
       +
                      )

     

       43
       +
           end

     

       44
       +
         end

     

       45
       +
       

     

       46
       +
         describe "story/2" do

     

       47
       +
           test "returns story on 200 response" do

     

       48
       +
             data = %{

     

       49
       +
               id: 2137,

     

       50
       +
               title: "Foo"

     

       51
       +
             }

     

       52
       +
       

     

       53
       +
             TestServer.add("/item/2137.json",

     

       54
       +
               to: fn conn ->

     

       55
       +
                 Phoenix.Controller.json(conn, data)

     

       56
       +
               end

     

       57
       +
             )

     

       58
       +
       

     

       59
       +
             assert {:ok, %{title: "Foo"}} =

     

       60
       +
                      @subject.story(2137, base_url: TestServer.url())

     

       61
       +
           end

     

       62
       +
       

     

       63
       +
           test "returns error in case of network error" do

     

       64
       +
             assert {:error, _} =

     

       65
       +
                      @subject.story(2137,

     

       66
       +
                        adapter: fn request ->

     

       67
       +
                          {request, %RuntimeError{message: "oops"}}

     

       68
       +
                        end

     

       69
       +
                      )

     

       70
       +
           end

     

       71
       +
         end

     

       72
       +
       

     

       73
       +
         describe "stories/2" do

     

       74
       +
           test "returns stories on 200 response" do

     

       75
       +
             TestServer.add("/item/2137.json",

     

       76
       +
               to: fn conn ->

     

       77
       +
                 Phoenix.Controller.json(conn, %{

     

       78
       +
                   id: 2137,

     

       79
       +
                   title: "Foo"

     

       80
       +
                 })

     

       81
       +
               end

     

       82
       +
             )

     

       83
       +
       

     

       84
       +
             TestServer.add("/item/666.json",

     

       85
       +
               to: fn conn ->

     

       86
       +
                 Phoenix.Controller.json(conn, %{

     

       87
       +
                   id: 666,

     

       88
       +
                   title: "Bar"

     

       89
       +
                 })

     

       90
       +
               end

     

       91
       +
             )

     

       92
       +
       

     

       93
       +
             assert {:ok, [_, _]} =

     

       94
       +
                      @subject.stories([2137, 666], base_url: TestServer.url())

     

       95
       +
           end

     

       96
       +
       

     

       97
       +
           test "returns error if at least one story returns error" do

     

       98
       +
             TestServer.add("/item/2137.json",

     

       99
       +
               to: fn conn ->

     

       100
       +
                 Phoenix.Controller.json(conn, %{

     

       101
       +
                   id: 2137,

     

       102
       +
                   title: "Foo"

     

       103
       +
                 })

     

       104
       +
               end

     

       105
       +
             )

     

       106
       +
       

     

       107
       +
             TestServer.add("/item/666.json",

     

       108
       +
               to: fn conn ->

     

       109
       +
                 Conn.send_resp(conn, 404, "")

     

       110
       +
               end

     

       111
       +
             )

     

       112
       +
       

     

       113
       +
             assert {:error, _} =

     

       114
       +
                      @subject.stories([2137, 666], base_url: TestServer.url())

     

       115
       +
           end

     

       116
       +
         end

     

       117
       +
       end

+233

test/esl_hn/refresher_test.exs

···

       1
       +
       defmodule EslHn.RefresherTest do

     

       2
       +
         use ExUnit.Case, async: true

     

       3
       +
       

     

       4
       +
         @subject EslHn.Refresher

     

       5
       +
       

     

       6
       +
         doctest @subject

     

       7
       +
       

     

       8
       +
         defmodule CacheMock do

     

       9
       +
           def write(pid, key, data) do

     

       10
       +
             send(pid, {:write, key, data})

     

       11
       +
             :ok

     

       12
       +
           end

     

       13
       +
       

     

       14
       +
           def write_all(pid, data) do

     

       15
       +
             send(pid, {:write_all, data})

     

       16
       +
       

     

       17
       +
             :ok

     

       18
       +
           end

     

       19
       +
       

     

       20
       +
           def prune_all(pid, keys) do

     

       21
       +
             send(pid, {:prune_all, Enum.to_list(keys)})

     

       22
       +
       

     

       23
       +
             :ok

     

       24
       +
           end

     

       25
       +
         end

     

       26
       +
       

     

       27
       +
         test "sends request to fetch top stories on startup" do

     

       28
       +
           this = self()

     

       29
       +
       

     

       30
       +
           TestServer.add("/topstories.json",

     

       31
       +
             to: fn conn ->

     

       32
       +
               send(this, {:http, :topstories})

     

       33
       +
               Phoenix.Controller.json(conn, [])

     

       34
       +
             end

     

       35
       +
           )

     

       36
       +
       

     

       37
       +
           start_subject()

     

       38
       +
       

     

       39
       +
           assert_receive {:http, :topstories}

     

       40
       +
         end

     

       41
       +
       

     

       42
       +
         test "sends requests in periodic manner" do

     

       43
       +
           this = self()

     

       44
       +
       

     

       45
       +
           TestServer.add("/topstories.json",

     

       46
       +
             to: fn conn ->

     

       47
       +
               send(this, {:http, :topstories, 1})

     

       48
       +
               Phoenix.Controller.json(conn, [])

     

       49
       +
             end

     

       50
       +
           )

     

       51
       +
       

     

       52
       +
           TestServer.add("/topstories.json",

     

       53
       +
             to: fn conn ->

     

       54
       +
               send(this, {:http, :topstories, 2})

     

       55
       +
               Phoenix.Controller.json(conn, [])

     

       56
       +
             end

     

       57
       +
           )

     

       58
       +
       

     

       59
       +
           start_subject(refresh: 10)

     

       60
       +
       

     

       61
       +
           assert_receive {:http, :topstories, 1}

     

       62
       +
           assert_receive {:http, :topstories, 2}

     

       63
       +
         end

     

       64
       +
       

     

       65
       +
         test "top stories list is stored in `:index` key" do

     

       66
       +
           TestServer.add("/topstories.json",

     

       67
       +
             to: fn conn -> Phoenix.Controller.json(conn, []) end

     

       68
       +
           )

     

       69
       +
       

     

       70
       +
           start_subject()

     

       71
       +
       

     

       72
       +
           assert_receive {:write, :index, []}

     

       73
       +
         end

     

       74
       +
       

     

       75
       +
         test "stories in response are fetched" do

     

       76
       +
           this = self()

     

       77
       +
       

     

       78
       +
           TestServer.add("/topstories.json",

     

       79
       +
             to: fn conn -> Phoenix.Controller.json(conn, [1]) end

     

       80
       +
           )

     

       81
       +
       

     

       82
       +
           TestServer.add("/item/1.json",

     

       83
       +
             to: fn conn ->

     

       84
       +
               send(this, {:http, :item, 1})

     

       85
       +
               Phoenix.Controller.json(conn, %{title: "Foo"})

     

       86
       +
             end

     

       87
       +
           )

     

       88
       +
       

     

       89
       +
           start_subject()

     

       90
       +
       

     

       91
       +
           assert_receive {:write, :index, [1]}

     

       92
       +
           assert_receive {:http, :item, 1}

     

       93
       +
           assert_receive {:write_all, [{_, story}]}

     

       94
       +
           assert story.title == "Foo"

     

       95
       +
         end

     

       96
       +
       

     

       97
       +
         test "new stories are fetched" do

     

       98
       +
           this = self()

     

       99
       +
       

     

       100
       +
           TestServer.add("/topstories.json",

     

       101
       +
             to: fn conn -> Phoenix.Controller.json(conn, [1]) end

     

       102
       +
           )

     

       103
       +
       

     

       104
       +
           TestServer.add("/item/1.json",

     

       105
       +
             to: fn conn ->

     

       106
       +
               send(this, {:http, :item, 1})

     

       107
       +
               Phoenix.Controller.json(conn, %{id: 1, title: "Foo"})

     

       108
       +
             end

     

       109
       +
           )

     

       110
       +
       

     

       111
       +
           TestServer.add("/topstories.json",

     

       112
       +
             to: fn conn -> Phoenix.Controller.json(conn, [2]) end

     

       113
       +
           )

     

       114
       +
       

     

       115
       +
           TestServer.add("/item/2.json",

     

       116
       +
             to: fn conn ->

     

       117
       +
               send(this, {:http, :item, 2})

     

       118
       +
               Phoenix.Controller.json(conn, %{id: 2, title: "Bar"})

     

       119
       +
             end

     

       120
       +
           )

     

       121
       +
       

     

       122
       +
           start_subject(refresh: 10)

     

       123
       +
       

     

       124
       +
           assert_receive {:http, :item, 2}

     

       125
       +
           assert_receive {:write_all, [{2, _}]}

     

       126
       +
         end

     

       127
       +
       

     

       128
       +
         test "broadcast new stories" do

     

       129
       +
           this = self()

     

       130
       +
       

     

       131
       +
           TestServer.add("/topstories.json",

     

       132
       +
             to: fn conn -> Phoenix.Controller.json(conn, [1]) end

     

       133
       +
           )

     

       134
       +
       

     

       135
       +
           TestServer.add("/item/1.json",

     

       136
       +
             to: fn conn ->

     

       137
       +
               send(this, {:http, :item, 1})

     

       138
       +
               Phoenix.Controller.json(conn, %{id: 1, title: "Foo"})

     

       139
       +
             end

     

       140
       +
           )

     

       141
       +
       

     

       142
       +
           TestServer.add("/topstories.json",

     

       143
       +
             to: fn conn -> Phoenix.Controller.json(conn, [2]) end

     

       144
       +
           )

     

       145
       +
       

     

       146
       +
           TestServer.add("/item/2.json",

     

       147
       +
             to: fn conn ->

     

       148
       +
               send(this, {:http, :item, 2})

     

       149
       +
               Phoenix.Controller.json(conn, %{id: 2, title: "Bar"})

     

       150
       +
             end

     

       151
       +
           )

     

       152
       +
       

     

       153
       +
           start_subject(refresh: 10)

     

       154
       +
       

     

       155
       +
           assert_receive {:http, :item, 1}

     

       156
       +
       

     

       157
       +
           EslHn.subscribe_new()

     

       158
       +
       

     

       159
       +
           assert_receive {:http, :item, 2}

     

       160
       +
           assert_receive {:new_stories, [%{id: 2}]}

     

       161
       +
         end

     

       162
       +
       

     

       163
       +
         test "old stories are pruned" do

     

       164
       +
           TestServer.add("/topstories.json",

     

       165
       +
             to: fn conn -> Phoenix.Controller.json(conn, [1]) end

     

       166
       +
           )

     

       167
       +
       

     

       168
       +
           TestServer.add("/item/1.json",

     

       169
       +
             to: fn conn ->

     

       170
       +
               Phoenix.Controller.json(conn, %{id: 1, title: "Foo"})

     

       171
       +
             end

     

       172
       +
           )

     

       173
       +
       

     

       174
       +
           TestServer.add("/topstories.json",

     

       175
       +
             to: fn conn -> Phoenix.Controller.json(conn, [2]) end

     

       176
       +
           )

     

       177
       +
       

     

       178
       +
           TestServer.add("/item/2.json",

     

       179
       +
             to: fn conn ->

     

       180
       +
               Phoenix.Controller.json(conn, %{id: 2, title: "Bar"})

     

       181
       +
             end

     

       182
       +
           )

     

       183
       +
       

     

       184
       +
           start_subject(refresh: 10)

     

       185
       +
       

     

       186
       +
           assert_receive {:prune_all, [1]}

     

       187
       +
         end

     

       188
       +
       

     

       189
       +
         test "on error response, process is still alive" do

     

       190
       +
           TestServer.add("/topstories.json",

     

       191
       +
             to: fn conn ->

     

       192
       +
               Plug.Conn.send_resp(conn, 404, "")

     

       193
       +
             end

     

       194
       +
           )

     

       195
       +
       

     

       196
       +
           pid = start_subject()

     

       197
       +
       

     

       198
       +
           ref = Process.monitor(pid)

     

       199
       +
       

     

       200
       +
           refute_receive {:DOWN, ^ref, :process, ^pid, _}

     

       201
       +
         end

     

       202
       +
       

     

       203
       +
         test "on error process is still alive" do

     

       204
       +
           TestServer.start()

     

       205
       +
       

     

       206
       +
           pid =

     

       207
       +
             start_subject(

     

       208
       +
               req_opts: [

     

       209
       +
                 base_url: "http://example.invalid"

     

       210
       +
               ]

     

       211
       +
             )

     

       212
       +
       

     

       213
       +
           ref = Process.monitor(pid)

     

       214
       +
       

     

       215
       +
           refute_receive {:DOWN, ^ref, :process, ^pid, _}

     

       216
       +
         end

     

       217
       +
       

     

       218
       +
         defp start_subject(opts \\ []) do

     

       219
       +
           this = self()

     

       220
       +
       

     

       221
       +
           opts =

     

       222
       +
             Keyword.merge(

     

       223
       +
               [

     

       224
       +
                 refresh: 5000,

     

       225
       +
                 cache: {CacheMock, this},

     

       226
       +
                 req_opts: [base_url: TestServer.url()]

     

       227
       +
               ],

     

       228
       +
               opts

     

       229
       +
             )

     

       230
       +
       

     

       231
       +
           start_supervised!({@subject, opts})

     

       232
       +
         end

     

       233
       +
       end

+120

test/esl_hn_web/api/controller_test.exs

···

       1
       +
       defmodule EslHnWeb.Api.ControllerTest do

     

       2
       +
         use EslHnWeb.ConnCase, async: false

     

       3
       +
         use ExUnitProperties

     

       4
       +
       

     

       5
       +
         import EslHn.Test.Data

     

       6
       +
       

     

       7
       +
         alias EslHn.Cache

     

       8
       +
       

     

       9
       +
         setup do

     

       10
       +
           on_exit(fn -> Cache.flush(EslHn) end)

     

       11
       +
         end

     

       12
       +
       

     

       13
       +
         describe "GET /" do

     

       14
       +
           test "with empty cache returns empty list", %{conn: conn} do

     

       15
       +
             resp =

     

       16
       +
               conn

     

       17
       +
               |> get(~p"/")

     

       18
       +
               |> json_response(200)

     

       19
       +
       

     

       20
       +
             assert resp == []

     

       21
       +
           end

     

       22
       +
       

     

       23
       +
           property "with some stories in index these are fetched", %{conn: conn} do

     

       24
       +
             check all(stories <- list_of(story(), max_length: 10)) do

     

       25
       +
               ids = Enum.map(stories, & &1.id)

     

       26
       +
               Cache.write(EslHn, :index, ids)

     

       27
       +
       

     

       28
       +
               Cache.write_all(EslHn, Enum.map(stories, &{&1.id, &1}))

     

       29
       +
       

     

       30
       +
               resp_ids =

     

       31
       +
                 conn

     

       32
       +
                 |> get(~p"/")

     

       33
       +
                 |> json_response(200)

     

       34
       +
                 |> Enum.map(& &1["id"])

     

       35
       +
       

     

       36
       +
               assert Enum.all?(ids, &(&1 in resp_ids))

     

       37
       +
             end

     

       38
       +
           end

     

       39
       +
       

     

       40
       +
           property "return at most 10 elements at once", %{conn: conn} do

     

       41
       +
             check all(stories <- list_of(story())) do

     

       42
       +
               ids = Enum.map(stories, & &1.id)

     

       43
       +
               Cache.write(EslHn, :index, ids)

     

       44
       +
       

     

       45
       +
               Cache.write_all(EslHn, Enum.map(stories, &{&1.id, &1}))

     

       46
       +
       

     

       47
       +
               resp =

     

       48
       +
                 conn

     

       49
       +
                 |> get(~p"/")

     

       50
       +
                 |> json_response(200)

     

       51
       +
       

     

       52
       +
               assert length(resp) <= 10

     

       53
       +
             end

     

       54
       +
           end

     

       55
       +
       

     

       56
       +
           property "if more than 10 elements there are stories on second page", %{

     

       57
       +
             conn: conn

     

       58
       +
           } do

     

       59
       +
             check all(stories <- list_of(story(), min_length: 11)) do

     

       60
       +
               ids = Enum.map(stories, & &1.id)

     

       61
       +
               Cache.write(EslHn, :index, ids)

     

       62
       +
       

     

       63
       +
               Cache.write_all(EslHn, Enum.map(stories, &{&1.id, &1}))

     

       64
       +
       

     

       65
       +
               resp =

     

       66
       +
                 conn

     

       67
       +
                 |> get(~p"/?page=2")

     

       68
       +
                 |> json_response(200)

     

       69
       +
       

     

       70
       +
               assert length(resp) in 1..10

     

       71
       +
             end

     

       72
       +
           end

     

       73
       +
       

     

       74
       +
           property "if requested page is outside of the possible range, returns empty list",

     

       75
       +
                    %{

     

       76
       +
                      conn: conn

     

       77
       +
                    } do

     

       78
       +
             check all(stories <- list_of(story(), max_length: 50)) do

     

       79
       +
               ids = Enum.map(stories, & &1.id)

     

       80
       +
               Cache.write(EslHn, :index, ids)

     

       81
       +
       

     

       82
       +
               Cache.write_all(EslHn, Enum.map(stories, &{&1.id, &1}))

     

       83
       +
       

     

       84
       +
               resp =

     

       85
       +
                 conn

     

       86
       +
                 |> get(~p"/?page=2137")

     

       87
       +
                 |> json_response(200)

     

       88
       +
       

     

       89
       +
               assert resp == []

     

       90
       +
             end

     

       91
       +
           end

     

       92
       +
         end

     

       93
       +
       

     

       94
       +
         describe "GET /:id" do

     

       95
       +
           test "for non-existent story returns 404", %{conn: conn} do

     

       96
       +
             conn

     

       97
       +
             |> get(~p"/2137")

     

       98
       +
             |> json_response(404)

     

       99
       +
           end

     

       100
       +
       

     

       101
       +
           test "for non-integer story ID returns 404", %{conn: conn} do

     

       102
       +
             conn

     

       103
       +
             |> get(~p"/foo-bar")

     

       104
       +
             |> json_response(404)

     

       105
       +
           end

     

       106
       +
       

     

       107
       +
           test "return data for existing story", %{conn: conn} do

     

       108
       +
             Cache.write_all(EslHn, [

     

       109
       +
               {2137, %EslHn.Hn.Story{id: 2137, title: "Foo"}}

     

       110
       +
             ])

     

       111
       +
       

     

       112
       +
             resp =

     

       113
       +
               conn

     

       114
       +
               |> get(~p"/2137")

     

       115
       +
               |> json_response(200)

     

       116
       +
       

     

       117
       +
             assert "Foo" == resp["title"]

     

       118
       +
           end

     

       119
       +
         end

     

       120
       +
       end

+48

test/esl_hn_web/api/json_test.exs

···

       1
       +
       defmodule EslHnWeb.API.JSONTest do

     

       2
       +
         use ExUnit.Case, async: true

     

       3
       +
         use ExUnitProperties

     

       4
       +
       

     

       5
       +
         import EslHn.Test.Data

     

       6
       +
       

     

       7
       +
         @subject EslHnWeb.API.JSON

     

       8
       +
       

     

       9
       +
         doctest @subject

     

       10
       +
       

     

       11
       +
         describe "index/1" do

     

       12
       +
           test "for empty list renders empty list" do

     

       13
       +
             assert [] == @subject.index(%{items: []})

     

       14
       +
           end

     

       15
       +
       

     

       16
       +
           property "length of encoded data is equal to items count" do

     

       17
       +
             check all(stories <- list_of(story())) do

     

       18
       +
               count = length(stories)

     

       19
       +
       

     

       20
       +
               assert count == length(@subject.index(%{items: stories}))

     

       21
       +
             end

     

       22
       +
           end

     

       23
       +
       

     

       24
       +
           property "all IDs are present in result" do

     

       25
       +
             check all(stories <- list_of(story())) do

     

       26
       +
               ids =

     

       27
       +
                 stories

     

       28
       +
                 |> Enum.map(& &1.id)

     

       29
       +
                 |> Enum.sort()

     

       30
       +
       

     

       31
       +
               result =

     

       32
       +
                 @subject.index(%{items: stories})

     

       33
       +
                 |> Enum.map(& &1.id)

     

       34
       +
                 |> Enum.sort()

     

       35
       +
       

     

       36
       +
               assert ids == result

     

       37
       +
             end

     

       38
       +
           end

     

       39
       +
         end

     

       40
       +
       

     

       41
       +
         describe "show/1" do

     

       42
       +
           property "encoded title is the same as input title" do

     

       43
       +
             check all(story <- story()) do

     

       44
       +
               assert story.title == @subject.show(%{item: story}).title

     

       45
       +
             end

     

       46
       +
           end

     

       47
       +
         end

     

       48
       +
       end

+65

test/esl_hn_web/api/socket_test.exs

···

       1
       +
       defmodule EslHnWeb.Api.SocketTest do

     

       2
       +
         use ExUnit.Case, async: false

     

       3
       +
       

     

       4
       +
         import EslHn.Test.Data

     

       5
       +
       

     

       6
       +
         alias EslHn.Cache

     

       7
       +
       

     

       8
       +
         setup do

     

       9
       +
           assert {:ok, {host, port}} = EslHnWeb.Endpoint.server_info(:http)

     

       10
       +
       

     

       11
       +
           on_exit(fn -> Cache.flush(EslHn) end)

     

       12
       +
       

     

       13
       +
           {:ok, host: host, port: port}

     

       14
       +
         end

     

       15
       +
       

     

       16
       +
         defmodule Client do

     

       17
       +
           use Fresh

     

       18
       +
       

     

       19
       +
           def handle_in({:text, data}, {parent, counter}) do

     

       20
       +
             send(parent, {:ws, counter, JSON.decode!(data)})

     

       21
       +
             {:ok, {parent, counter + 1}}

     

       22
       +
           end

     

       23
       +
         end

     

       24
       +
       

     

       25
       +
         test "receive initial list of stories", ctx do

     

       26
       +
           stories = Enum.take(story(), 50)

     

       27
       +
       

     

       28
       +
           ids = Enum.map(stories, & &1.id)

     

       29
       +
           Cache.write(EslHn, :index, ids)

     

       30
       +
       

     

       31
       +
           Cache.write_all(EslHn, Enum.map(stories, &{&1.id, &1}))

     

       32
       +
       

     

       33
       +
           start_supervised!(

     

       34
       +
             {Client, uri: "ws://localhost:#{ctx.port}/websocket", state: {self(), 0}}

     

       35
       +
           )

     

       36
       +
       

     

       37
       +
           assert_receive {:ws, 0, init}

     

       38
       +
       

     

       39
       +
           recv_ids = Enum.map(init, & &1["id"])

     

       40
       +
       

     

       41
       +
           assert Enum.all?(ids, &(&1 in recv_ids))

     

       42
       +
           assert length(recv_ids) == length(ids)

     

       43
       +
         end

     

       44
       +
       

     

       45
       +
         test "broadcasted events are sent over socket", ctx do

     

       46
       +
           start_supervised!(

     

       47
       +
             {Client, uri: "ws://localhost:#{ctx.port}/websocket", state: {self(), 0}}

     

       48
       +
           )

     

       49
       +
       

     

       50
       +
           assert_receive {:ws, 0, []}

     

       51
       +
       

     

       52
       +
           for stories <- Enum.take(StreamData.list_of(story(), min_length: 1), 10) do

     

       53
       +
             ids = Enum.map(stories, & &1.id)

     

       54
       +
       

     

       55
       +
             EslHn.broadcast_new(stories)

     

       56
       +
       

     

       57
       +
             assert_receive {:ws, _, msg}

     

       58
       +
       

     

       59
       +
             recv_ids = Enum.map(msg, & &1["id"])

     

       60
       +
       

     

       61
       +
             assert Enum.all?(ids, &(&1 in recv_ids))

     

       62
       +
             assert length(recv_ids) == length(ids)

     

       63
       +
           end

     

       64
       +
         end

     

       65
       +
       end

-14

test/esl_hn_web/controllers/error_json_test.exs

···

       1
       -
       defmodule EslHnWeb.ErrorJSONTest do

     

       2
       -
         use EslHnWeb.ConnCase, async: true

     

       3
       -
       

     

       4
       -
         test "renders 404" do

     

       5
       -
           assert EslHnWeb.ErrorJSON.render("404.json", %{}) == %{

     

       6
       -
                    errors: %{detail: "Not Found"}

     

       7
       -
                  }

     

       8
       -
         end

     

       9
       -
       

     

       10
       -
         test "renders 500" do

     

       11
       -
           assert EslHnWeb.ErrorJSON.render("500.json", %{}) ==

     

       12
       -
                    %{errors: %{detail: "Internal Server Error"}}

     

       13
       -
         end

     

       14
       -
       end

+14

test/esl_hn_web/error/json_test.exs

···

       1
       +
       defmodule EslHnWeb.Error.JSONTest do

     

       2
       +
         use EslHnWeb.ConnCase, async: true

     

       3
       +
       

     

       4
       +
         @subject EslHnWeb.Error.JSON

     

       5
       +
       

     

       6
       +
         test "renders 404" do

     

       7
       +
           assert @subject.render("404.json", %{}) == %{errors: %{detail: "Not Found"}}

     

       8
       +
         end

     

       9
       +
       

     

       10
       +
         test "renders 500" do

     

       11
       +
           assert @subject.render("500.json", %{}) ==

     

       12
       +
                    %{errors: %{detail: "Internal Server Error"}}

     

       13
       +
         end

     

       14
       +
       end

+23

test/support/data.ex

···

       1
       +
       defmodule EslHn.Test.Data do

     

       2
       +
         @moduledoc """

     

       3
       +
         Additional `StreamData` generators used during testing

     

       4
       +
         """

     

       5
       +
       

     

       6
       +
         use ExUnitProperties

     

       7
       +
       

     

       8
       +
         alias EslHn.Hn.Story

     

       9
       +
       

     

       10
       +
         def story do

     

       11
       +
           gen all(

     

       12
       +
                 title <- string(:utf8, min_length: 1),

     

       13
       +
                 score <- positive_integer()

     

       14
       +
               ) do

     

       15
       +
             %Story{

     

       16
       +
               id: System.unique_integer([:positive]),

     

       17
       +
               title: title,

     

       18
       +
               score: score,

     

       19
       +
               url: "https://example.com/#{URI.encode(title)}"

     

       20
       +
             }

     

       21
       +
           end

     

       22
       +
         end

     

       23
       +
       end

Compare changes