Fix false positive for UnsafeToAtom

Refs #1148

Author: rrrene

lib/credo/check/warning/unsafe_to_atom.ex

@@ -48,6 +48,10 @@ defmodule Credo.Check.Warning.UnsafeToAtom do
     {nil, issues}
   end
 
+  defp traverse({:unquote, _, [_ | _] = _args}, issues, _) do
+    {nil, issues}
+  end
+
   defp traverse(
          {:|>, _meta1, [_lhs, {{:., _meta2, call}, meta, args}]} = ast,
          issues,

test/credo/check/warning/unsafe_to_atom_test.exs

@@ -8,7 +8,7 @@ defmodule Credo.Check.Warning.UnsafeToAtomTest do
   #
 
   test "it should NOT report expected code" do
-    """
+    ~S"""
     defmodule CredoSampleModule do
       @test_module_attribute String.to_atom("foo")
       @test_module_attribute2 Jason.decode("", keys: :atoms)
@@ -36,6 +36,10 @@ defmodule Credo.Check.Warning.UnsafeToAtomTest do
       def convert_erlang_binary(parameter) do
         :erlang.binary_to_existing_atom(parameter, :utf8)
       end
+
+      for n <- 1..4 do
+        def unquote(:"fun_#{n}")(), do: unquote(n)
+      end
     end
     """
     |> to_source_file()