Let: Allow to pass a Keyword list to let_ok and let_error

lib/espec/let/let.ex

@@ -132,27 +132,71 @@ defmodule ESpec.Let do
     do_result_let(var, block, :ok, false)
   end
 
+  @doc """
+  Allows to define several 'let_ok's at once
+  """
+  defmacro let_ok(keyword) when is_list keyword do
+    if Keyword.keyword?(keyword) do
+      Enum.map(keyword, fn{var, block} -> do_result_let(var, block, :ok, false) end)
+    else
+      raise "Argument must be a Keyword"
+    end
+  end
+
   @doc """
   Defines 'let!' for success result tuple.
   """
   defmacro let_ok!(var, do: block) do
     do_result_let(var, block, :ok, true)
   end
 
+  @doc """
+  Allows to define several 'let_ok!'s at once
+  """
+  defmacro let_ok!(keyword) when is_list keyword do
+    if Keyword.keyword?(keyword) do
+      Enum.map(keyword, fn{var, block} -> do_result_let(var, block, :ok, true) end)
+    else
+      raise "Argument must be a Keyword"
+    end
+  end
+
   @doc """
   Defines 'let' for error result tuple.
   """
   defmacro let_error(var, do: block) do
     do_result_let(var, block, :error, false)
   end
 
+  @doc """
+  Allows to define several 'let_error's at once
+  """
+  defmacro let_error(keyword) when is_list keyword do
+    if Keyword.keyword?(keyword) do
+      Enum.map(keyword, fn{var, block} -> do_result_let(var, block, :error, false) end)
+    else
+      raise "Argument must be a Keyword"
+    end
+  end
+
   @doc """
   Defines 'let!' for error result tuple.
   """
   defmacro let_error!(var, do: block) do
     do_result_let(var, block, :error, true)
   end
 
+  @doc """
+  Allows to define several 'let_error!'s at once
+  """
+  defmacro let_error!(keyword) when is_list keyword do
+    if Keyword.keyword?(keyword) do
+      Enum.map(keyword, fn{var, block} -> do_result_let(var, block, :error, true) end)
+    else
+      raise "Argument must be a Keyword"
+    end
+  end
+
   defp do_result_let(var, block, key, bang?) do
     new_block = quote do
       {unquote(key), result} = unquote(block)

spec/let/let_spec.exs

@@ -112,7 +112,7 @@ defmodule LetSpec do
     it do: b() |> should(eq 2)
   end
 
-  describe "let is lazy and memoizes" do
+  describe "let is lazy and memorizes" do
     let :a do
       value = Application.get_env(:espec, :let_value, "") <> ".let"
       Application.put_env(:espec, :let_value, value)
@@ -125,4 +125,28 @@ defmodule LetSpec do
       expect(a()).to eq("initial.let")
     end
   end
+
+  describe "let_ok extracts the value from an {:ok, result}" do
+    let_ok :a, do: {:ok, 1}
+    let_ok! :b, do: {:ok, 2}
+    let_ok c: {:ok, 3}
+    let_ok d: {:ok, 4}
+
+    it do: a() |> should(eq 1)
+    it do: b() |> should(eq 2)
+    it do: c() |> should(eq 3)
+    it do: d() |> should(eq 4)
+  end
+
+  describe "let_error extracts the value from an {:error, result}" do
+    let_error :a, do: {:error, 1}
+    let_error! :b, do: {:error, 2}
+    let_error c: {:error, 3}
+    let_error d: {:error, 4}
+
+    it do: a() |> should(eq 1)
+    it do: b() |> should(eq 2)
+    it do: c() |> should(eq 3)
+    it do: d() |> should(eq 4)
+  end
 end