From 6c3aee2835e29cd361a64f35a1be7596e75dde5b Mon Sep 17 00:00:00 2001
From: alisdair sullivan <alisdairsullivan@yahoo.ca>
Date: Thu, 18 Aug 2011 06:32:50 -0700
Subject: [PATCH] further testing of repeated key behavior

---
 src/jsx_terms.erl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/jsx_terms.erl b/src/jsx_terms.erl
index 196a0ac..9b6da8a 100644
--- a/src/jsx_terms.erl
+++ b/src/jsx_terms.erl
@@ -446,6 +446,11 @@ repeated_keys_test_() ->
                 =:= [{<<"a">>, true}]
             )
         },
+        {"simple repeated key - allowed",
+            ?_assert(json_to_term(<<"{\"a\":false,\"a\":true}">>, [])
+                =:= [{<<"a">>, false}, {<<"a">>, true}]
+            )
+        },
         {"nested repeated key",
             ?_assert(json_to_term(
                     <<"[{\"a\":false,\"a\":true},{\"a\":false,\"a\":true}]">>,
@@ -453,10 +458,20 @@ repeated_keys_test_() ->
                 =:= [[{<<"a">>, true}], [{<<"a">>, true}]]
             )
         },
+        {"nested repeated key - allowed",
+            ?_assert(json_to_term(<<"[{\"a\":false,\"a\":true},{\"a\":false,\"a\":true}]">>, [])
+                =:= [[{<<"a">>, false}, {<<"a">>, true}], [{<<"a">>, false}, {<<"a">>, true}]]
+            )
+        },
         {"multiple keys",
             ?_assert(json_to_term(<<"{\"a\":4,\"a\":3,\"a\":2,\"a\":1}">>, [{repeatable_keys, false}])
                 =:= [{<<"a">>, 1}]
             )
+        },
+        {"multiple keys",
+            ?_assert(json_to_term(<<"{\"a\":4,\"a\":3,\"a\":2,\"a\":1}">>, [])
+                =:= [{<<"a">>, 4}, {<<"a">>, 3}, {<<"a">>, 2}, {<<"a">>, 1}]
+            )
         }
     ].