Fix logics for error case with multiple body request

lib/exvcr/adapter/hackney.ex

@@ -54,21 +54,25 @@ defmodule ExVCR.Adapter.Hackney do
 
   defp handle_body_request(recorder, [client]) do
     if body = Store.get(client) do
+      Store.delete(client)
       {:ok, body}
     else
-      {:ok, body} = :meck.passthrough([client])
-      body = ExVCR.Filter.filter_sensitive_data(body)
+      {ret, body} = :meck.passthrough([client])
+      if ret == :ok do
+        body = ExVCR.Filter.filter_sensitive_data(body)
 
-      client_key_in_string = inspect(client)
-      ExVCR.Recorder.update(recorder,
-        fn([request: _request, response: response]) ->
-          response.body == client_key_in_string
-        end,
-        fn([request: request, response: response]) ->
-          [request: request, response: response.body(body)]
-        end
-      )
-      {:ok, body}
+        client_key_in_string = inspect(client)
+        ExVCR.Recorder.update(recorder,
+          fn([request: _request, response: response]) ->
+            response.body == client_key_in_string
+          end,
+          fn([request: request, response: response]) ->
+            [request: request, response: response.body(body)]
+          end
+        )
+      end
+
+      {ret, body}
     end
   end
 

lib/exvcr/adapter/hackney/store.ex

@@ -30,6 +30,14 @@ defmodule ExVCR.Adapter.Hackney.Store do
     value
   end
 
+  @doc """
+  Set key (client key).
+  """
+  def delete(key) do
+    start
+    :ets.delete(table, key)
+  end
+
   defp table do
     "exvcr_hackney#{inspect self}" |> binary_to_atom
   end

test/adapter_hackney_test.exs

@@ -6,23 +6,30 @@ defmodule ExVCR.Adapter.HackneyTest do
     HTTPoison.start
   end
 
-  test "hackney get request" do
+  test "hackney request" do
     use_cassette "hackney_get" do
-      :hackney.start
       {:ok, status_code, headers, client} = :hackney.request(:get, "http://www.example.com", [], [], [])
       {:ok, body} = :hackney.body(client)
       assert body =~ %r/Example Domain/
     end
   end
 
-  test "single request with error" do
+  test "hackney request with error" do
     use_cassette "error_hackney" do
-      :hackney.start
       {type, body} = :hackney.request(:get, "http://invalid_url", [], [], [])
       assert type == :error
     end
   end
 
+  test "hackney body request with invalid reference" do
+    use_cassette "hackney_invalid_client" do
+      {:ok, status_code, headers, client} = :hackney.request(:get, "http://www.example.com", [], [], [])
+      :hackney.body(client)
+      {ret, body} = :hackney.body(client)
+      assert ret == :error
+    end
+  end
+
   test "get request" do
     use_cassette "httpoison_get" do
       assert HTTPoison.get("http://example.com").body =~ %r/Example Domain/