   test "Discount.to_html_each/2 compiles a list of Markdown documents and calls function for each item" do
     [ markdown_list, expected_list ] = get_prepared_lists
 
-    Discount.to_html_each markdown_list, fn(result_item) ->
-      assert Enum.any?(expected_list, fn(e)-> e == result_item end)
+    Discount.to_html_each markdown_list, fn (result_item) ->
+      assert Enum.any?(expected_list, &(&1 == result_item))
     end
   end
 

  use ExUnit.Case

  test "Discount.to_html/1 compiles a single Markdown text to HTML" do
    { :ok, markdown_doc }  = File.read("test/single_doc.md")
    { :ok, expected_html } = File.read("test/single_doc.html")
    expected_html          = String.strip(expected_html)
    result_html            = Discount.to_html(markdown_doc)

    assert expected_html == result_html
  end

  test "Discount.to_html/2 compiles a single Markdown text to HTML and calls function with result" do
    { :ok, markdown_doc }  = File.read("test/single_doc.md")
    { :ok, expected_html } = File.read("test/single_doc.html")

    Discount.to_html markdown_doc, fn(result_html) ->
      assert String.strip(expected_html) == result_html
    end
  end

  test "Discount.to_html/1 compiles a list of Markdown documents" do

  end

  defp create_simple_list(itemcount, markdown, html) do
    num_list = (1 .. itemcount) |> Enum.to_list
    [
      (num_list |> Enum.map(fn(_) -> markdown end)),
      (num_list |> Enum.map(fn(_) -> html end))
    ]
  end

  defp create_list(itemcount, markdown, html) do
    num_list = (1 .. itemcount) |> Enum.to_list
    [
      Enum.map(num_list, &("#{markdown}\n*idx: #{&1}*")),
      Enum.map(num_list, &("#{html}\n\n<p><em>idx: #{&1}</em></p>"))
    ]
  end
end
