Merge pull request #4 from scripbox/hotfix/http_timeouts

Increase response timeout

Author: goodhamgupta

lib/snowplow_tracker/emitter.ex

@@ -40,7 +40,7 @@ defmodule SnowplowTracker.Emitter do
         emitter.request_type
       )
 
-    with {:ok, response} <- Request.get(url),
+    with {:ok, response} <- Request.get(url, [recv_timeout: 50000]),
          {:ok, body} <- Response.parse(response) do
       {:ok, body}
     else

test/snowplow_tracker/emitter_test.exs

@@ -7,7 +7,7 @@ defmodule SnowplowTracker.EmitterTest do
 
   defmacro with_request_mock(block) do
     quote do
-      with_mock Request, get: fn url -> RequestMock.get(url) end do
+      with_mock Request, get: fn (url, opts) -> RequestMock.get(url, opts) end do
         unquote(block)
       end
     end

test/snowplow_tracker_test.exs

@@ -13,7 +13,7 @@ defmodule SnowplowTrackerTest do
 
   defmacro with_request_mock(block) do
     quote do
-      with_mock Request, get: fn url -> RequestMock.get(url) end do
+      with_mock Request, get: fn (url, opts) -> RequestMock.get(url, opts) end do
         unquote(block)
       end
     end

test/support/request_mock.ex

@@ -1,7 +1,7 @@
 defmodule SnowplowTracker.RequestMock do
   require HTTPoison
 
-  def get(_) do
+  def get(_, _) do
     send(self(), "request sent")
     {:ok, %HTTPoison.Response{status_code: 200, body: "response"}}
   end