From 2ebffe0616ad0b0ebc922c63658bc670f962fb18 Mon Sep 17 00:00:00 2001
From: alisdair sullivan <alisdairsullivan@yahoo.ca>
Date: Sat, 9 Feb 2013 15:49:56 -0800
Subject: [PATCH] add floats to tests

---
 src/jsx_tests.hrl  | 32 ++++++++++++++++++++++++++++++++
 src/jsx_verify.erl |  4 +++-
 2 files changed, 35 insertions(+), 1 deletion(-)

diff --git a/src/jsx_tests.hrl b/src/jsx_tests.hrl
index 715ce47..3529eb3 100644
--- a/src/jsx_tests.hrl
+++ b/src/jsx_tests.hrl
@@ -5,6 +5,7 @@
 -export([empty_object/0]).
 -export([literals/0, naked_literals/0]).
 -export([integers/0, naked_integers/0]).
+-export([floats/0, naked_floats/0]).
 
 
 -include_lib("eunit/include/eunit.hrl").
@@ -27,6 +28,7 @@ really_deep_array() ->
     [Test] = empty_array(),
     [repeat(fun wrap_with_array/1, Test, 1000)].
 
+
 empty_object() -> [{"{}", <<"{}">>, [{}], [start_object, end_object]}].
 
 
@@ -55,6 +57,36 @@ integers() ->
         ++ [listify("array of integers", naked_integers())].
 
 
+naked_floats() ->
+    Raw = [
+        0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9,
+        1.0, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9,
+        1234567890.0987654321,
+        2.2250738585072014e-308,    %% min normalized float
+        1.7976931348623157e308,     %% max normalized float
+        5.0e-324,                   %% min denormalized float
+        2.225073858507201e-308      %% max denormalized float
+    ],
+    [
+        {
+            sane_float_to_list(X),
+            list_to_binary(sane_float_to_list(X)),
+            X,
+            [{float, X}]
+        }
+        || X <- Raw ++ [ -1 * Y || Y <- Raw ]
+    ] ++ [{"-0.0", <<"-0.0">>, 0.0, [{float, 0.0}]}].
+
+floats() ->
+    [ wrap_with_array(Test) || Test <- naked_floats() ]
+        ++ [ wrap_with_object(Test) || Test <- naked_floats() ]
+        ++ [listify("array of floats", naked_floats())].
+
+sane_float_to_list(X) ->
+    [Output] = io_lib:format("~p", [X]),
+    Output.
+
+
 naked_literals() ->
     [
         {
diff --git a/src/jsx_verify.erl b/src/jsx_verify.erl
index 590e148..a8ba58b 100644
--- a/src/jsx_verify.erl
+++ b/src/jsx_verify.erl
@@ -122,7 +122,9 @@ handle_event_test_() ->
         ++ jsx:literals()
         ++ jsx:naked_literals()
         ++ jsx:integers()
-        ++ jsx:naked_integers(),
+        ++ jsx:naked_integers()
+        ++ jsx:floats()
+        ++ jsx:naked_floats(),
     [
         {
             Title, ?_assertEqual(