feat(http): Add wrapper; impl from HTTPotion.

.tool-versions

@@ -0,0 +1 @@
+elixir 1.7.4

lib/indieweb/http.ex

@@ -0,0 +1,15 @@
+defmodule IndieWeb.Http do
+  def adapter, do: Application.get_env(:indieweb, :http_adapter, IndieWeb.Http.Adapters.HTTPotion)
+
+  defmodule Adapter do
+    def request(uri, method, opts)
+  end
+
+  def request(uri, method \\ :get, opts \\ []) do
+    adapter().request(uri, method, opts)
+  end
+
+  for method <- ~w(get post options head put patch delete)a do
+    def unquote(method)(uri, opts), do: IndieWeb.Http.request(uri, unquote(method), opts)
+  end
+end

lib/indieweb/http/adapter.ex

@@ -0,0 +1,4 @@
+defmodule IndieWeb.Http.Adapter do
+  @callback
+  def request(method, uri, opts)
+end

lib/indieweb/http/adapters/httpotion.ex

@@ -0,0 +1,22 @@
+defmodule IndieWeb.Http.Adapters.HTTPotion do
+  @impl true
+  def request(uri, method, opts) do
+    options = [
+      timeout: opts[:timeout],
+      follow_redirects: true,
+      auto_sni: true,
+      headers: Keyword.get(opts, :headers, %{}) |> Map.to_list |> Keyword.new,
+      direct: nil,
+      ibrowse: [],
+      body: Keyword.get(opts, :body, nil),
+      query: Keyword.get(opts, :query, nil)
+    ]
+
+    case HTTPotion.request(method, uri, options) do
+      %HTTPotion.ErrorResponse{} = err_resp ->
+        {:error, %IndieWeb.Http.Error{message: err_resp.message, raw: err_resp}}
+      %HTTPotion.Response{} = resp ->
+        {:ok, %IndieWeb.Http.Response{code: resp.status_code, body: resp.body, headers: resp.headers}}
+    end
+  end
+end

lib/indieweb/http/error.ex

@@ -0,0 +1,3 @@
+defmodule IndieWeb.Http.Error do
+  defstruct ~w(message raw)a
+end

lib/indieweb/http/response.ex

@@ -0,0 +1,3 @@
+defmodule IndieWeb.Http.Response do
+  defstruct ~w(body code headers raw)a
+end

lib/microformats2/utility.ex

@@ -34,7 +34,7 @@ defmodule Microformats2.Utiltiy do
       {prop, items} ->
         Stream.flat_map(items, fn
           item when is_map(item) ->
-            parse_item(item, format)
+            do_parse_item(item, format)
 
           _ ->
             []
@@ -42,5 +42,5 @@ defmodule Microformats2.Utiltiy do
     end)
   end
 
-  def do_extract_from_properties(_, _), do: []
+  defp do_extract_from_properties(_, _), do: []
 end

mix.exs

@@ -7,6 +7,7 @@ defmodule IndieWeb.MixProject do
       app: :elixir,
       version: "0.0.1",
       elixir: "~> 1.7",
+      elixirc_paths: elixirc_paths(Mix.env()),
       start_permanent: Mix.env() == :prod,
       description: @description,
       package: package(),
@@ -25,7 +26,9 @@ defmodule IndieWeb.MixProject do
   defp deps do
     [
       {:ex_doc, "~> 0.14", only: :dev},
-      {:microformats2, "~> 0.2.0"}
+      {:microformats2, "~> 0.2.0"},
+      {:exvcr, "~> 0.10", only: :test},
+      {:faker, "~> 0.12.0", only: :test},
     ]
   end
 
@@ -36,4 +39,8 @@ defmodule IndieWeb.MixProject do
       links: %{"Source Code" => "https://git.jacky.wtf/indieweb/elixir"}
     ]
   end
+
+
+  defp elixirc_paths(:test), do: ["lib", "test/support"]
+  defp elixirc_paths(_), do: ["lib"]
 end

mix.lock

@@ -1,7 +1,19 @@
 %{
   "earmark": {:hex, :earmark, "1.3.1", "73812f447f7a42358d3ba79283cfa3075a7580a3a2ed457616d6517ac3738cb9", [:mix], [], "hexpm"},
   "ex_doc": {:hex, :ex_doc, "0.19.3", "3c7b0f02851f5fc13b040e8e925051452e41248f685e40250d7e40b07b9f8c10", [:mix], [{:earmark, "~> 1.2", [hex: :earmark, repo: "hexpm", optional: false]}, {:makeup_elixir, "~> 0.10", [hex: :makeup_elixir, repo: "hexpm", optional: false]}], "hexpm"},
+  "exactor": {:hex, :exactor, "2.2.4", "5efb4ddeb2c48d9a1d7c9b465a6fffdd82300eb9618ece5d34c3334d5d7245b1", [:mix], [], "hexpm"},
+  "exjsx": {:hex, :exjsx, "4.0.0", "60548841e0212df401e38e63c0078ec57b33e7ea49b032c796ccad8cde794b5c", [:mix], [{:jsx, "~> 2.8.0", [hex: :jsx, repo: "hexpm", optional: false]}], "hexpm"},
+  "exvcr": {:hex, :exvcr, "0.10.3", "1ae3b97560430acfa88ebc737c85b2b7a9dbacd8a2b26789a19718b51ae3522c", [:mix], [{:exactor, "~> 2.2", [hex: :exactor, repo: "hexpm", optional: false]}, {:exjsx, "~> 4.0", [hex: :exjsx, repo: "hexpm", optional: false]}, {:httpoison, "~> 1.0", [hex: :httpoison, repo: "hexpm", optional: true]}, {:httpotion, "~> 3.1", [hex: :httpotion, repo: "hexpm", optional: true]}, {:ibrowse, "~> 4.4", [hex: :ibrowse, repo: "hexpm", optional: true]}, {:meck, "~> 0.8", [hex: :meck, repo: "hexpm", optional: false]}], "hexpm"},
+  "faker": {:hex, :faker, "0.12.0", "796cbac868c86c2df6f273ea4cdf2e271860863820e479e04a374b7ee6c376b6", [:mix], [], "hexpm"},
+  "floki": {:hex, :floki, "0.20.4", "be42ac911fece24b4c72f3b5846774b6e61b83fe685c2fc9d62093277fb3bc86", [:mix], [{:html_entities, "~> 0.4.0", [hex: :html_entities, repo: "hexpm", optional: false]}, {:mochiweb, "~> 2.15", [hex: :mochiweb, repo: "hexpm", optional: false]}], "hexpm"},
+  "html_entities": {:hex, :html_entities, "0.4.0", "f2fee876858cf6aaa9db608820a3209e45a087c5177332799592142b50e89a6b", [:mix], [], "hexpm"},
+  "httpotion": {:hex, :httpotion, "3.1.1", "b8ad199dea2c56a70c89e7f9e4d09898c7e85871783b7417c04cb4f1d4d8e919", [:mix], [{:ibrowse, "== 4.4.0", [hex: :ibrowse, repo: "hexpm", optional: false]}], "hexpm"},
+  "ibrowse": {:hex, :ibrowse, "4.4.0", "2d923325efe0d2cb09b9c6a047b2835a5eda69d8a47ed6ff8bc03628b764e991", [:rebar3], [], "hexpm"},
+  "jsx": {:hex, :jsx, "2.8.3", "a05252d381885240744d955fbe3cf810504eb2567164824e19303ea59eef62cf", [:mix, :rebar3], [], "hexpm"},
   "makeup": {:hex, :makeup, "0.8.0", "9cf32aea71c7fe0a4b2e9246c2c4978f9070257e5c9ce6d4a28ec450a839b55f", [:mix], [{:nimble_parsec, "~> 0.5.0", [hex: :nimble_parsec, repo: "hexpm", optional: false]}], "hexpm"},
   "makeup_elixir": {:hex, :makeup_elixir, "0.13.0", "be7a477997dcac2e48a9d695ec730b2d22418292675c75aa2d34ba0909dcdeda", [:mix], [{:makeup, "~> 0.8", [hex: :makeup, repo: "hexpm", optional: false]}], "hexpm"},
+  "meck": {:hex, :meck, "0.8.13", "ffedb39f99b0b99703b8601c6f17c7f76313ee12de6b646e671e3188401f7866", [:rebar3], [], "hexpm"},
+  "microformats2": {:hex, :microformats2, "0.2.1", "452e8749566500ea70fcaa9b5680b00a20803aa8d1e490f8f84ae3c38a30799a", [:mix], [{:floki, "~> 0.7", [hex: :floki, repo: "hexpm", optional: false]}, {:httpotion, "~> 3.0", [hex: :httpotion, repo: "hexpm", optional: false]}], "hexpm"},
+  "mochiweb": {:hex, :mochiweb, "2.18.0", "eb55f1db3e6e960fac4e6db4e2db9ec3602cc9f30b86cd1481d56545c3145d2e", [:rebar3], [], "hexpm"},
   "nimble_parsec": {:hex, :nimble_parsec, "0.5.0", "90e2eca3d0266e5c53f8fbe0079694740b9c91b6747f2b7e3c5d21966bba8300", [:mix], [], "hexpm"},
 }

test/indieweb_test.exs

@@ -1,8 +0,0 @@
-defmodule IndieWebTest do
-  use ExUnit.Case
-  doctest IndieWeb
-
-  test "greets the world" do
-    assert IndieWeb.hello() == :world
-  end
-end

test/support/case.ex

@@ -0,0 +1,9 @@
+defmodule IndieWeb.TestCase do
+  use ExUnit.CaseTemplate
+
+  using do
+    quote do
+      use ExUnit.Case
+    end
+  end
+end

test/support/http.ex

@@ -0,0 +1,5 @@
+defmodule IndieWeb.Test.HttpAdapter do
+  defdelegate request(uri, methods, opts), to: IndieWeb.Http.Adapters.HTTPotion
+end
+
+Application.put_env(:indieweb, :http_adapter, IndieWeb.Test.HttpAdapter, persistent: true)

test/test_helper.exs

@@ -1 +1,6 @@
 ExUnit.start()
+
+ExUnit.configure(
+  exclude: [slow: true, skip: true],
+  formatters: [ExUnit.CLIFormatter]
+)

test/unit/indieweb/http_test.exs

@@ -0,0 +1,40 @@
+defmodule IndieWeb.HttpTest do
+  use IndieWeb.TestCase, async: false
+  use ExVCR.Mock
+  alias IndieWeb.Http, as: Subject
+  doctest Subject
+
+  setup do
+    Application.put_env(:indieweb, :http_adapter, IndieWeb.Test.HttpAdapter, persistent: true)
+    :ok
+  end
+
+  describe ".adapter/0" do
+    test "pulls the one defined in configuration" do
+      Application.put_env(:indieweb, :http_adapter, IndieWeb.Test.HttpAdapter, persistent: true)
+      assert Subject.adapter() == IndieWeb.Test.HttpAdapter
+    end
+
+    test "defaults to using HTTPotion" do
+      Application.delete_env(:indieweb, :http_adapter)
+      assert Subject.adapter() == IndieWeb.Http.Adapters.HTTPotion
+    end
+  end
+
+  describe ".request/2" do
+    test "successfully sends a HTTP GET request by default" do
+      use_cassette :stub, [uri: "~r/*", method: :get] do
+        assert {:ok, %IndieWeb.Http.Response{code: 200}} = Subject.request("https://indieweb.org")
+      end
+    end
+
+    for method <- ~w(get post options head put patch delete)a do
+      test "successfully sends a HTTP #{method} request" do
+
+        use_cassette :stub, [uri: "~r/*", method: unquote(method)] do
+          assert {:ok, %IndieWeb.Http.Response{}} = Subject.request("https://indieweb.org", unquote(method))
+        end
+      end
+    end
+  end
+end