From d017a9757649b95d322aa80d226cd7e5c84728b7 Mon Sep 17 00:00:00 2001
From: Chris Keathley <c@keathley.io>
Date: Wed, 1 Jul 2020 13:55:46 -0400
Subject: [PATCH] Add coerce test

---
 lib/norm.ex            | 20 ++++++++++
 lib/norm/coerceable.ex | 84 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 104 insertions(+)
 create mode 100644 lib/norm/coerceable.ex

diff --git a/lib/norm.ex b/lib/norm.ex
index 95b01f5..824c159 100644
--- a/lib/norm.ex
+++ b/lib/norm.ex
@@ -26,6 +26,26 @@ defmodule Norm do
     end
   end
 
+  @doc ~S"""
+  Coerces the value based on the specification.
+
+  ## Examples:
+
+      iex> coerce("42", spec(is_integer))
+      42
+      iex> coerce("5.0", spec(is_float))
+      5.0
+      iex> coerce("a", spec(is_binary))
+      "a"
+      iex> coerce("a", spec(is_atom))
+      :a
+      iex> coerce(%{"a" => "123"}, schema(%{a: spec(is_integer)}))
+      %{a: 123}
+  """
+  def coerce(input, spec) do
+    Norm.Coerceable.coerce(spec, input)
+  end
+
   @doc ~S"""
   Verifies that the payload conforms to the specification. A "success tuple"
   is returned that contains either the conformed value or the error explanation.
diff --git a/lib/norm/coerceable.ex b/lib/norm/coerceable.ex
new file mode 100644
index 0000000..1c9f77a
--- /dev/null
+++ b/lib/norm/coerceable.ex
@@ -0,0 +1,84 @@
+defprotocol Norm.Coerceable do
+  @moduledoc false
+
+  def coerce(spec, input)
+end
+
+defimpl Norm.Coerceable, for: Norm.Core.Schema do
+  require Norm
+
+  def coerce(%{specs: specs}, input) when is_map(input) do
+    specs
+    |> Enum.map(fn {key, spec} ->
+      cond do
+        is_atom(key) ->
+          case Enum.find(input, fn {k, v} -> Atom.to_string(key) == k || k == key end) do
+            {k, v} -> {Norm.Coerceable.coerce(Norm.spec(is_atom), k), Norm.Coerceable.coerce(spec, v)}
+          end
+      end
+    end)
+    |> Enum.into(%{})
+  end
+end
+
+defimpl Norm.Coerceable, for: Norm.Core.Spec do
+  def coerce(%{f: f, generator: gen}, input) do
+    sym_to_coercer(gen, input)
+  end
+
+  defp sym_to_coercer(:is_atom, input) do
+    :"#{input}"
+  end
+
+  defp sym_to_coercer(:is_binary, input) do
+    "#{input}"
+  end
+
+  defp sym_to_coercer(:is_bitstring, input) do
+    "#{input}"
+  end
+
+  defp sym_to_coercer(:is_boolean, input) do
+    case input do
+      "true" -> true
+      "false" -> false
+    end
+  end
+
+  defp sym_to_coercer(:is_float, input) do
+    cond do
+      is_binary(input) -> String.to_float(input)
+      is_integer(input) -> input / 1
+    end
+  end
+
+  defp sym_to_coercer(:is_integer, input) do
+    cond do
+      is_binary(input) -> String.to_integer(input)
+      is_float(input) -> round(input)
+    end
+  end
+
+  defp sym_to_coercer(:is_nil, input) do
+    case input do
+      "null" -> nil
+      "nil" -> nil
+    end
+  end
+
+  defp sym_to_coercer(:is_number, input) do
+    cond do
+      is_binary(input) -> String.to_integer(input)
+      is_float(input) -> round(input)
+      is_integer(input) -> input
+    end
+  end
+
+  # defp sym_to_coercer(:is_list, input) do
+  # end
+
+  defp sym_to_coercer(gen, input) do
+    input
+    # default
+  end
+end